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ABSTRACT 


This  thesis  huilds  a  simulation  model  of  a  tactical 
fire  control  system  in  a  real  time  environment,  using  a 
tightly  connected  multi-processing  system  consisting  of  two 
single  hoard  computers.  The  additional  hardware  used  in 
this  project  consists  of  an  ADM-3A  video  terminal  with  a 
"built-in  retrographics  feature,  an  MDS  microprocessor 
development  system,  an  analog-to-digi tal  conver- 
ter, and  two  sets  of  triplet  potentiometers.  The  poten- 
tiometers are  used  to  feed  analog  information  ahout  own- 
ship,  targetship,  and  gun  position  to  the  simulation  model, 
which  then  evaluates  and  computes  projected  target 
positions  and  gun  control  parameters,  and  displays  the 
results. 
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I.   INTRODUCTION 

A.   BACKGROUND 

To  this  date,  many  tactical  control  and  decision 
systems  have  heen  designed  and  implemented  in  various 
places,  where  the  nature  of  the  job  required  fast  response 
and  decision  making.  The  NTDS  (Navy  Tactical  Decision 
System),  for  instance,  is  one  such  system  implemented  for 
U.S.  Navy  ships  in  1962,  and  is  still  in  use  today,  with 
recent  hardware  modifications. 

The  revolutionary  developments  in  the  LSI  (Large  Scale 
Integration)  and  VLSI  (Very  Large  Scale  Integration) 
industries  during  the  period  from  1972  to  1983  have  made 
the  costs  of  computing  much  less  expensive  than  the  costs 
of  yesterday's  systems.  Today's  products,  which  are  "based 
on  these  innovations  in  large  scale  integration,  have 
proved  to  he  more  reliable  and  more  versatile  than  the  old 
systems,  and  they  can  also  lie  tailored  to  the  needs  of 
whatever  the  nature  of  the  requirements  may  he.  The 
serviceability,  availability  and  inexpensiveness  of  these 
products,  in  addition  to  the  above-mentioned  features, 
offer  both  the  designers  and  the  implementers  an 
opportunity  to  take  advantage  of  this  technology. 
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B.  DISCLAIMER 

Many  terms  used  in  this  thesis  are  registered  trade- 
marks of  commercial  products.  Rather  than  citing  each 
individual  occurance  of  a  trademark  throughout  this  thesis, 
all  registered  trademarks  referred  to  in  this  thesis  will 
he  listed  "below,  following  the  name  of  the  firm  holding  the 
trademark. 

Intel  corporation,  Santa  Clara,  California: 

Intel,  Intel  80e6,  iSEC  86/12A,  MULTIBUS,  MDS 

Digital  Research  Corporation,  Pacific  Grove, 
California: 

CP/M,  CP/M-86,  PL/I-60,  PL/I-86,  TED,  RASM-86, 
LINK-86,  DDT-86 

EX-CELL-0  Corporation,  Irvine,  California: 
REMEX  Data  Warehouse 

MicroPro  International,  San  Rafael,  California: 
Wordstar 

Micropolis  Corporation,  Chatsworth,  California: 
Micropolis 

Lear  Siegler,  Inc.,  Anaheim,  California: 
ADM-3A 

C.  PURPOSE  OF  THIS  THESIS 

The  purpose  of  this  thesis  is  to  create  a  simulation 
model  for  real  time  tactical  systems  which  can  he  used  to 
study  the  following  features: 

1.  Multiprocessor  system  real  time  performance* 

2.  System  reliahility J 

3.  Graphics  Display; 

4.  Software  Engineering. 
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In  order  to  carry  out  these  objectives,  certain 
hardware  changes  had  to  be  made.  The  real  time 
applications  necessitate  the  existence  of  an  interrupt- 
driven  configuration  originating  from  an  accurate  timer. 
The  interconnections  and  the  appropriate  initializations, 
both  in  the  timing  (PIT)  and  the  interrupt  (FIC)  circuits, 
were  made  on  the  iSBC  86/12A  board,  to  give  the  required 
real  time  clock.  After  achieving  the  desired  form  cf 
operation,  the  real  time  executive  module  (which 
synchronizes  the  operation  of  the  simulation  system 
programs)  was  tested  in  an  interrupt-driven  environment. 
After  testing  out  both  the  real  time  executive  and  most  of 
the  simulation  system  programs,  the  individual  execution 
times  of  the  simulation  system  programs  were  measured  with 
the   aid  of  TIMES. AID,  an  %INCLUDE  file  (see  Apppendix  F). 

It  was  intended  to  utilize  two  iSBC  86/12A  single  board 
computers  in  order  to  study  the  real  time  performance  of  a 
tightly  connected  multiprocessing  scheme.  The  Intel  MDS 
(Microprocessor  Development  System)  allows  the  configura- 
tion of  such  an  expansion,  through  its  20  bit  MULTIBUS 
backplane.  It  was  also  planned  to  write  the  required 
software  to  prevent  a  single  point  failure  and  to  gain  a 
"graceful  degradation"  in  the  case  of  a  malfunction  in  any 
of  the  single  board  computers. 
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The   ADM-3A  video  terminal,   with  its   built-in   Retro- 
graphics  unit,  was  utilized  for  graphics  display  purposes. 
The   Retrographics   card  contains  a   Z-80A   eight   bit 
microprocessor.   This  allows   the  computations  for   high 
precision  graphics  to  be  done  by  the  video  terminal.    That 
improves   the  efficiency  by  removing  much  of   the   overhead 
from   the   iSEC  86/12A   single  board   computers.    The 
Retrographics   unit   can  also  make  drawings  and  erasures 
selectively.    This  improves  the  display  time,   which  might 
be   lost  due  to  total  erasures  and  redrawings.    In   other 
words,   the  selective  erasing  capability  decreases   the 
display   time,   such   that  the  program  may  make  partial 
erasures,   erasures  cf  single  objects. 

The  programs  written  for  the  simulation  model  were  made 
as  modular  as  much  as  possible,  to  facilitate  testing  and 
maintenance,  and  to  make  room  for  future  alterations.  A 
procedure  call  was  placed  wherever  a  critical  design 
decision  was  to  be  made.  This  procedure  call  gives  the 
option  of  changing  a  critical  design  decision  if  one  that 
is  more  efficient  is  designed.  Structured  programming  and 
efficient  data  structures  were  meant  to  be  utilized. 
Circular  linked-lists  are  examples  of  such  a  programming 
technique. 
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D.   THESIS  ORGANIZATION 

The  thesis  is  organized  into  four  chapters.  The  prog- 
ram listings  developed  to  implement  the  simulation  system 
are  •  appended  at  the  end  of  the  text.  The  first  chapter 
covers  the  background,  the  disclaimer  for  the  trademarks 
used  in  this  thesis,  the  intended  purpose  of  the  project 
and  thesis  organization.  The  second  chapter  covers  the 
system  configuration  and  the  hardware  components.  The 
third  chapter  deals  with  software  modules  written  in  both 
PL/I-86  and  RASM-86  assembly  languages.  The  program  seg- 
ments are  discussed  in  detail  in  this  chapter.  Some  infor- 
mation about  the  data  structures  used  in  the  developement 
of  the  software  are  brought  up,  as  well  as  the  initializa- 
tion of  the  programmable  hardware  components.  In  the  final 
chapter,  some  conclusions  are  presented  on  the  work 
involved  in  the  implementation  of  the  simulation  system. 
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II.  SYSTEM  HARDWARE 
A.   SYSTEM  CONFIGURATION 

The  existing  system  hardware  (see  Figure  2.1)  uses  the 
Intellec  microcomputer  development  system  (MDS),  which 
allows  the  expandability  required  to  set  up  a  multi-proces- 
sor system.  Within  the  MDS,  the  hoards  required  for  the 
operation  of  the  system  are  interconnected  through  the 
MULTIBUS  backplane.  These  hoards  are  the  following:  two 
iSBC  86/12A  hoards,  the  front  panel  control  board,  an  A  to 
D  converter  board,  and  two  interface  boards  for  disk 
drives.  The  MDS  utilizes  an  Intel  disk  drive  unit  which 
has  two  disk  drives.  Standard  8-inch  IEM  floppy  disks  are 
used  as  the  removable  storage  media. 

Each  iSBC  86/12A  board  had  a  RAM  capacity  of  up  to 
OFFFF  hexadecimal  (65535  decimal)  eight  bit  bytes.  Since 
the  MULTIBUS  is  a  20-bit  address  bus,  the  address  space  of 
the  whole  system  can  be  expanded  up  to  1  megabyte.  The 
single  board  computers  can  address  this  memory  space  by 
their  20-bit  address  bus.  Each  board  is  so  wired  that 
the  first  64  Kbyte  RAM  segment  resides  on  its  board  (2000 
through  FFFFH).  The  64K  RAM  segments  on  each  board  can  be 
wired  to  be  accessible  from  the  MULTIBUS  as  dual  ported 
memories  in  the  1-megabyte  address  space.  One  of  the  iSBC 
86/12A   boards    is    the   master   of   the   master-slave 
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Figure  2.1  -  System  Interconnection 
multiprocessor  scheme.  The  master  "board  is  assigned  the 
first  545segment  (00000h  -  0FFFFh)  where  the  slave  "board  is 
assigned  the  second  64K  segment  (10000h-lFFFFh) .  In  this 
configuration  the  A-to-D  toard  occupies  the  segment  with 
the  addresses  (D0000h-DFFFFh) .  The  outputs  of  the  A-tc-D 
converter  are  memory-mapped  as  eight  bit  frytes  and  occupy 
the  locations  DF700H  through  LF70FH.  That  is  to  say  that 
they  are   viewed   hy   the   CPU's   in   the   system  as  being 
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ordinary  memory  locations.  An  analogy  to  that  is  that  they 
resemble  read  only  memory  that  can  only  he  read  hut  not 
written  in  to. 

The  master  iSSC  86/12A  is  connected  to  the  ADM-3A  video 
terminal  through  it's  serial  I/O  connector.  This  is  the 
only  means  of  communication  of  the  system  to  the  outside 
world.  The  results  of  the  simulation  are  fed  to  the  video 
display  through  this  interconnection.  The  AEM-3A  video 
terminal  has  a  built-in  retrographics  feature.  The 
consequence  of  this  is  that  the  ADM-3A  works  not  only  as  an 
alphabetic  terminal  but  also  may  act  as  a  graphics  device 
due  to  the  fact  that  the  renographies  card  itself  has  a  Z- 
80A  microprocessor  built  in.  This  microprocessor  allows 
the  high  precision  graphics  computations  to  be  done  without 
the  need  of  any  other  external  processors.  In  this  case, 
ADM-3A  has  four  operational  modes,  each  one  of  which  has 
an  impact  on  the  simulation  graphics  and  will  be  discussed 
later  in  this  chapter. 

B.   HARDWARE 

In  the  following  subsections  the  individual  components 
that  comprise  the  system  hardware  are  presented. 

1.  MDS 

The  Intellec  Microcomputer  Development  System  (MDS) 
is  a  complete  development  tool  which  allows  the 
integration   of  both  microcomputer  hardware  and   software 
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development.  The  system  operates  under  the  control  of  an 
8086  microprocessor  which  supervises  all  system  resources 
such  as  the  main  memory,  I/O  peripheral  devices,  and 
optional  system  facilities,  such  as  A-to-D  converters. 
It  can  support  up  to  7  iSBC  86/12A  hoards  in  this 
configuration.  Some  of  the  important  hoards  are  presented 
"below. 

a.   Front  Panel  Control  Board 

The  Front  Panel  Control  Beard  contains  circuits 
for  controlling  the  front  panel  options.  It  also  provides 
some  signals  for  hus  control,  clock  generation,  and  the 
ooctstrap  program.  A  hus  time-out  system  is  included  to 
prevent  the  CPU  from  halting  operation  if  a  nonexistent 
memory  location  or  an  incorrect  I/O  port  is  addressed. 

This  hoard  produces  two  types  of  clock  pulses: 

(1)  Bus   Clock   (10   MHz),    used   in   Bus 
transactions ; 

(2)  Common  Clock  (10  MHz),   used   hy   system 

devices? 

c.   Disk  Interface  Boards 

These   two   cards  contain  the  disk  controller 
interface  for  each  drive  in  the  Disk  Storage  Unit. 
2.  Single  Board  Computer 

Intel's  Single  Board  Computer  iSBC  86/12A  is  used 
in  the  system.  It  is  a  memter  of  Intel's  complete  line  of 
8-  and   16-hit   single  hoard  computer  products   and   is   a 
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complete  computer  system  on  a  single  pr inted-circuit  assem- 
bly. The  iSBC  86/12A  board  includes  a  16-bit  central 
processing  unit  (CPU),  32K  bytes  (32,768  bytes)  of  dynamic 
RAM,  a  serial  communications  interface  (USART),  three  pro- 
grammable parallel  I/O  ports,  programmable  timers  (PIT), 
priority  interrupt  control  (PIC),  Multibus  interface  con- 
trol logic,  and  bus  expansion  drivers  for  interfacing  with 
other  Multibus  interface-compatible  expansion  boards.  Also 
included  is  a  dual  port  control  logic  to  allow  the  iSEC 
86/12A  board  to  act  as  a  slave  RAM  device  to  other  Multibus 
interface  masters  in  the  system,  as  is  the  case  in  this 
project.  In  the  current  state  of  the  hardware,  the  RAM 
capacity  of  both  iSBC  86/12A  boards  is  expanded  up  to  64K 
bytes  by  installing  an  iSBC  300  Multimodule  RAM  option.  A 
read  only  memory  of  16K  bytes  is  also  added  to  both  iSBC 
86/12A  boards.  The  important  components  that  make  up  the 
iSBC  86/12A  board  are  discussed  in  the  following 
subsections . 

a.   CPU 

The  iSBC  86/12A  Single  Board  Computer  is 
controlled  by  an  Intel  8086  16-bit  Microprocessor  (CPU). 
The  8086  CPU  includes  four  16-bit  general  purpose  registers 
that  may  also  be  addressed  as  eight  8-bit  registers.  In 
addition,  the  CPU  contains  two  16-bit  pointer  registers  and 
two  16-blt  index  registers.   Four  16-bit  segment  registers, 
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specifically;  code,  data,  extra,  and  stack  segment 
registers;  allow  extended  addressing  to  a  full  megabyte  of 
memory.  The  CPU  instruction  set  supports  many  variations 
of  addressing  modes  and  data  transfer  operations,  signed 
and  unsigned  8-bit  and  16-Mt  arithmetic  including  hardware 
multiply  and  divide,  and  logical  and  string  operations. 
The  CPU  architecture  permits  dynamic  code  relocation, 
reentrant  code,  and  instruction  lookahead. 
b.   Serial  I/O 

The  serial  I/O  port  is  controlled  and 
interfaced  by  an  Intel  8251A  USART  (Universal 
Synchronous/Asynchronous  Receiver /Transmitter )  chip.  The 
USART  is  individually  programmable  for  operation  in  most 
synchronous  serial  data  transmission  formats. 

In  the  synchronous  mode,  the  following  are 
programmable : 

(1)  Character  length 

(2)  Sync  character  (or  characters) 

(3)  Parity 

In   the  asynchronous   mode   the   following   are 
programmable : 

(1)  Character  length 

(2)  Baud  rate  factor 

(3)  Stop  bits 

(4)  Parity 
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In  both  the  synchronous  and  asynchronous  modes,  the 
serial  I/O  port  features  half-  or  full-duplex,  double 
buffered  transmit  and  receive  capability.  The  USART 
transmit  and  receive  clock  rates  are  supplied  by  a 
programmable  baud  rate/time  generator. 

c.  Programmable  Interval  Timer 

Three  independent,  fully  programmable  16-bit 
interval  timer/event  counters  are  provided  by  in  Intel  8253 
Programmable  Interval  Timer  (PIT).  Each  counter  is  capable 
of  operating  in  either  BCD  (binary  coded  decimal)  or  binary 
modes*  two  of  these  counters  are  available  to  the  system's 
programmer  to  generate  time  intervals  under  software  con- 
trol. In  this  thesis  project  the  counterl  is  used  to 
generate  timing  pulses  required  for  the  real  time  clock 
operation  to  the  system  software.  These  pulses  are  sent  to 
the  PIC  via  the  interrupt  matrix  as  being  an  IR1  input 
request. 

d.  Priority  Interrupt  Control 

The  priority  interrupt  control  (PIC)  which  can 
be  programmed  to  respond  to  edge-sensitive  or  level-sensi- 
tive inputs,  treats  each  true  input  signal  condition  as  an 
interrupt  request.  After  resolving  the  interrupt  priority, 
the  PIC  issues  a  single  interrupt  request  to  the  CPU. 
Interrupt  priorities  are  independently  programmable  under 
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under   software   control.    The   programmable   interrupt 
priority  modes  are: 

(1)  Nested  Priority.    Each  interrupt   request 
has   a   fixed  priority:    input  0  is  highest,   input  7   is 
lowest.    This  mode   of   operation  is  chosen   in   this 
thesis  project; 

(2)  Fully  Nested  Priority.  This  is 
essentially  the  same  as  item  (1)  above,  with  the  exception 
that  the  requesting  input  is  not  locked  out  and  pending 
requests  are  still  accepted; 

(3)  Auto-Rotating  Priority.  Priorities  are 
equal.  The  last  received  input  becomes  the  lowest  priority 
input; 

(4)  Specific  Priority.  Software  assigns  the 
priorities; 

(5)  Special  Mask.  Interrupt  requests  that  are 
being  serviced  are  masked  out; 

(6)  Poll.  The  CPU's  internal  interrupt  enable 
is  disabled.  Interrupt  service  is  achieved  by  a 
programmer-initiated  Poll  command. 

The  iSBC  86/12A  board  provides  two  sorts  of 
interrupts  which  are  bus  vectored  (BY)  and  non-bus  vectored 
(NBV).  The  former  deals  with  the  interrupt  requests 
from  off-board  sources  where  the  latter  deals  with  various 
on-board   sources.    The  interrupt  requests  are  fed  to   the 
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PIC  through  the  jumpers  of  the  interrupt  matrix,  which  will 
be  discussed  in  the  next  subsection. 

e.  Interrupt  Matrix 

Interrupt  requests  may  originate  from  eighteen 
sources  without  the  necessity  of  external  hardware.  The 
interrupt  matrix  connects  the  selected  source  lines  to  a 
maximum  of  eight  selected  inputs  of  the  PIC.  It  is  an 
array  of  pins  which  can  he  connected  to  each  other  via 
jumper  wires.  There  are  two  types  of  pins.  The  eighteen 
source  lines  constitute  the  input  pins,  where  the  pins  that 
lead  to  the  IRO  through  the  IR7  inputs  of  the  PIC 
constitute  the  output  pins.  (See  Figure  2-2  for  the 
interconnection  scheme  of  this  thesis  project.) 

f.  Dual  Port  RAM 

The  iSBC  86/12A  hoard  has  an  internal  bus  for 
all  on-hoard  memory  and  I/O  operations.  Hence,  local  (on- 
heard)  operations  do  not  involve  the  MULTIBUS  interface, 
making  it  available  for  other  iSBC  86/12A  boards  for  a 
multi-processor  scheme.  Dual  port  control  logic  is 
included  to  interface  so  that  the  iSBC  86/12A  board  can 
function  as  a  slave  RAM  device  (or  common  memory)  when  not 
in  control  of  the  Multibus  interface.  The  CPU  has  priority 
when  accessing  on-board  RAM.  After  the  CPU  completes  its 
read  or  write  operation,  the  controlling  bus  master  is 
is  allowed  to  access  RAM  and  complete  its  operation.  Where 
both   the  CPU  and  the  controlling  bus  master  have  the   need 
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to  write  or  read  several  bytes  or  words  to  or  from  the  on- 
board RAM,  their  operations  are  interleaved.  For  CPU 
access,  the  on-board  RAM  addresses  are  assigned  from  the 
"bottom  up  of  the  1-megabyte  address  space;  i.e.,  00000- 
0B???h.  The  slave  RAM  address  decoding  logic  includes 
jumpers  and  switches  to  allow  positioning  the  on-board  RAM 
into  any  64-K  segment  of  the  1-megabyte  system  address 
space.  The  slave  RAM  can  be  configured  to  allow  either 
16K,  32K ,  48K,  or  64K  access  by  another  bus  master,  with 
the  installation  of  the  iSBC  300  Multimodule  RAM.  In  this 
thesis  project  all  of  the  64K-byte  memory  of  the  slave  iSBC 
86/12A  is  made  accessible  to  the  master.  Furthermore, 
both  iSBC  86/12A  boards  are  configured  to  occupy  the  first 
128K  section  of  the  1-megabyte  address  space. 
3«   A-tprP  Converter  Board 

This  board  is  electrically  and  mechanically  compa- 
tible with  any  iSBC  86/12A  board  and  with  MDS.  Both  the 
anolog  input  and  output  systems  are  contained  on  a  single 
printed  circuit  board  that  is  treated  as  ordinary  memory 
locations  by  the  CPU  (memory  mapping).  This  board  simply 
gets  the  analog  signals  form  the  potentiometers  and  con- 
verts them  to  the  digital  signals  compatible  with  TTL 
standards.  The  output  of  the  A-to-D  converter  is  one  byte 
per  potentiometer  input,  which  varies  from  +127  to  -128. 
This  is  the  maximum  value  range  a  fixed  binary  (7)  variable 
can  assume  in  the  PL/I  language,   by  definition.   So,   the 
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Figure  2.2  -Interrupt  Matrix  Interconnection 

software  system  thinks  of  the  potentiometer  value  as   cnan- 
ging  "between  +127  and  -128.    The  A-to-D  converter  tcard  is 
configured  to  occupy  the  segment  D020:  (14th  54K  portion  of 
the  1-megatyte  address  space). 
4-  ADMr3A  Terminal 

This  terminal   is   the   only  means   "by  which   the 
operator  communicates  with  the  system.   It  is  connected  to 
the   system  with  the  master  iSBC   86/12A   hoard's   serial 
I/O   connector.   It   is  an  interactive  device  which  is  used 
to  enter,  display,  and  send  information  to  a  host  computer, 
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and  to  receive  and  display  inf ormati-on  from  that  computer. 
The  information  exchange  between  the  terminal  and  the 
computer  is  made  at  different  baud  rates,  ranging  up  to 
1S200.  In  this  scheme,  a  9600  baud  rate  is  used.  The 
keyboard  contains  59  keys.  The  display  memory  is  a  RAM 
which  is  capable  cf  holding  1920  characters.  Data 
characters  are  displayed  on  24  or  12  equally-spaced  rows, 
each  consisting  of  80  columns. 
5-  ?£l"512  Metrographies  Card 

The  RG-512  Retrographics  printed  circuit  board  is 
added  to  the  ADM-3A  terminal  to  extend  the  data  and 
graphics  display  capabilities  with  the  aid  of  a  Z-80A 
built-in  microprocessor.  The  RG-512  employs  the  bit  map 
method  of  storing  graphic  images.  This  information  is 
stored  in  a  digital  memory  as  a  rectangular  array  of 
bits.  Each  bit  is  mapped  onto  the  CRT  screen  and  can  cause 
a  bright  spot  to  be  displayed.  The  RG-512  displays  graphs 
and  pictures  by  writing  the  proper  bits  into  the 
graphics  memory.  One  of  the  important  features  of  the  RG- 
512  is  the  ability  to  erase  portions  of  the  screen 
selectively.  This  is  desirable  when  the  application 
requires  the  use  of  dynamic  displays  employing  motion  or 
rotation  to  convey  information.  The  RG-512  has  four  modes 
of  operation.  These  are  the  ADM-3A  Alpha  Mode,  the  4010 
Alpha  Mode,  the  Point  Mode,  and  the  Vector  Mode.  The  first 
one   is   equivalent  to  the  operation  of  ADM-3A  without   RG- 
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512.   The   latter   three  modes  make  use  of   the   hit   map 
method . 

6.   Potentiometers 

Two  sets  of  triplet  potentiometers  are  used  as 
simulating  analog  sensor  information  sources.  They  feed 
anolog  signals  to  the  input  of  the  A-to-D  converter  hoard, 
varying  tetween  -5V  and  +5V . 
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III.  IMPLEMENTATION  OF  THE  SOFTWARE 

A.   GENERAL  INFORMATION 
1.   Modularity 

A  modular  and  extensible  simulation  program  is 
aimed  at  simplifying  the  debugging  and  testing  phase  and  at 
facilitating  possible  alterations.  The  hierarchy  of  the 
modularity  is  composed  of  a  head  module  and  four  second- 
level  modules  connected  to  the  head  module.  These  second- 
level  modules  are  the  initialization  module,  the  simulation 
system  module,  the  real  time  executive  module,  and  the 
dynamic  debugging  tool  module.  These  modules  are 
separately  compiled  PL/I-86  and  RASM-86  programs.  Each 
main  module  is  further  subdivided  into  third-level  modules 
to  gain  a  finer  granularity  of  modularity.  In  the 
programs,  two  useful  special  features  of  PL/I-86  are 
used.  Those  are  %INCLUDE  and  %REPLACE  statements.  By 
those  statements,  global  declarations  tbat  are  the  same  in 
the  scope  of  the  simulation  program  need  not  be  declared 
within  each  and  every  module.  Instead,  they  are  grouped 
together  in  the  GLOBALS.INP  declaration  file.  The  ^REPLACE 
statement  allows  constants  to  be  declared  as  in  the  other 
high-level  languages  like  Pascal,  such  that  the  value  of 
the  constants  can  be  changed  without  having  to  go  through 
every  program  segment  in  which  they  occur. 
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2.   Data  Structures 

Linear  arrays  and  arrays  of  structures  (records) 
are  used  in  the  simulation  program  as  data  structures. 
These  data  structures  are  then  linked  to  each  other  to 
establish  circular  linked  lists.  Figure  3.1  (on  the  next 
page)  explains  the  general  picture  of  tne  circular  linked 
lists  in  the  simulation  program.  Fixed  size  data 
structures  with  fixed  Dinary  pointers  are  used  in  the 
program,  rather  than  pointer  data,  to  avoid  the  dynamic 
system  overhead  and  to  retain  the  "benefit  of  random  access 
capabilities  inherent  to  linear  arrays. 

The  structure  SHIP  has  two  pointers,  in  addition  to 
the  fields  that  hold  specifications  ahout  the  ships  in  the 
area.  Those  pointers,  PTR  and  LINK-SHIP  have  different 
purposes  for  different  ships.  SHIP  (1),  for  instance, 
"being  the  ownship  points  to  two  different  circular  linked 
lists.  PTR  points  to  the  enemy  ship's  circular  linked  list 
"by  pointing  to  the  target  ship  which  is  engaged  (tracked) 
for  the  sea  cattle.  The  other  pointer,  LINK-SEIP  points  to 
the  friendly  ships  circular  list.  The  PTR  field  of  other 
ships,  on  the  other  hand,  points  to  another  circular  linked 
list,  WAKE,  to  record  their  past  positions  that  will  he 
used  for  tracking  and  display  purposes,  where  LINK-SIP 
points  to  the  other  ships  in  their  category.  The  reason 
for  using  circular  lists  in  this  program  is  the   ease  with 
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Figure  3.1  The  structure  of  the  circular  linked  lists 

which   one   traverses  through  the  lists  and  which  does   not 
necessitate  the  use  of  another  external  pointer. 
3*   Plher  Features 

The  PL/I  exception  handlers  (ON  tody  statements) 
are  used  extensively  in  the  dynamic  debugging  module,  and 
in  various  interactive  parts  of  the  program,  to  intercept 
the  error  conditions  that  might  le  raised  during  the 
testing  and  execution  of  the  program.  The  ON  oody 
statements  are  contained  in  the  ERRHAND.AID  file,  which  is 
an  ^INCLUDE  file.  Upon  receiving  the  control  through  a 
raised  error  condition,   the  statements  in  the  file  prompt 
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the  user  and  give  the  control  over   to   the  REENTRY. PLI 
interactive  debugging  tool. 

One  of  the  exceptional  features  of  the  simulation 
program  is  the  use  of  non-local  goto  statements  which  are 
unacceptable  in  structured  style  of  programming.  It  is  an 
inevitable  requirement,  by  the  PL/I  language,  to  suppress 
the  raised  error  conditions  by  a  non-local  goto  statement. 
It  is  also  used  in  some  parts  of  the  dynamic  debugging 
module,  in  order  to  by-pass  the  flow  of  control  over  to  the 
debugging  program  when  the  optional  ERRORON  boolean  switch 
is  closed.  Explicit  comments  are  offered  wherever  non- 
local goto  statements  are  used,  to  avoid  confusing  the 
reader . 

B.   SOFTWARE  FUNCTIONAL  DESCRIPTION 

In  the  following  sections,  the  structure  of  the  modules 
and  the  programs  that  belong  to  those  modules  are 
described.  The  program  listings  are  presented  as 
appendices. 

1.  Head  Module 
a.   WAR. PLI 

This  main  procedure  is  the  head  node  of  the 
hierarchical  structure  of  the  procedures  used  to  modularize 
and  structure  the  implementation  of  the  simulation  program. 
It  contains  two  call  statements,  one  of  which  is  to 
the  initialization  module,   to  set  up  the  tactical  database 
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and   to  initialize  various  external  variables  that  are  used 
throughout  the  simulation  program.   The  other  call  is  for 
passing  the  control  to  the  real  time  executive  module  where 
the   control  stays  for  the  rest  of  the   program  execution. 
A  listing  of  WAR.PLI  is  presented  as  Appendix  A. 
2«   Initialization  Module 
a.   INITYARS.PLI 

This  PL/I  routine,  when  called  from  the  main 
procedure,  constructs  the  tactical  database  in  an 
interactive  manner.  It  first  initializes  the  pool  of 
available  SHIP  and  WAKE  modes  for  later  use.  It  then  gets 
the  interval  of  time  which  is  used  to  update  the 
information  about  ships  in  the  tactical  area  and  other  time 
dependent  functions.  This  time  interval  must  be  equal  to 
the  period  of  the  real-time  interrupts  which  depend  on  the 
timing  constants  used  during  the  initialization  of  PIT. 
Detailed  information  will  be  presented  later  under  the 
hardware  initialization  section.  Then  the  control  proceeds 
to  establish  the  tactical  database  interactively.  In  this 
session,  the  initial  information  about  azimuth,  range, 
friend  or  enemy  are  written  to  the  proper  fields.  Then,  a 
circular  linked  list  of  four  nodes  is  composed  and  the  PTR 
field  is  made  to  point  to  that  list.  Finally,  dependent  on 
whether  friend  or  foe,  that  particular  node  is  added  to  the 
appropriate  circular  linked  list.  INITVARS.PLI  makes  use 
of   various    internal   subroutines   for    linked   list 
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operations.  Those  subroutines  simply  extract  a  node  from 
the  pool  of  available  nodes.  After  establishing  the  linked 
lists,  the  INITVARS.PLI  initializes  external  variables  that 
are  used  throughout  the  program.  A  listing  of  INITVARS.PLI 
is  presented  in  Appendix  B. 

3.   Simulation  System  Module 

This  module  is  composed  of  four  PL/I  programs  which 
perform  the  simulation  under  the  control  of  the  real-time 
executive  module.  The  following  subsections  describe  the 
functional  description  of  those  programs.  The  listings  of 
the  program  segments  that  comprise  this  module  are 
presented  in  Appendix  C. 
a.   TACTICAL. PLI 

This  routine  has  the  highest  priority  among  the 
system  module  programs.  It  first  updates  the  position  of 
each  ship  in  the  tactical  area  by  calculating  the  relative 
velocity  and  multiplying  that  with  the  time  interval,  which 
is  the  period  of  timing  interrupts  that  occur  every  250 
milliseconds.  The  control  then  proceeds  to  calculate  the 
future  positions  of  the  ships,  for  those  ships  which  have 
been  in  the  area  for  more  than  4  seconds,  and  which  are 
included  in  the  enemy  ship  circular  linked  list.  The 
routine  uses  the  polynomial  least  squares  curve  fitting 
method  with  Legendre  Polynomials.  The  coefficients  are 
pre-calulated  for  the  position  of  the  ship  one  second  after 
the   time   of   calculations,   based  on  the  past   four   wake 
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points.   TACTICAL. PLI  also  calculates  the  trajectory  of  the 
travelling  projectile  if  the  gun  is  fired. 

b.  DISPLAY. PLI 

This  routine,  which  is  invoked  every  second,  is 
the  interface  of  the  simulation  program  for  the  ADM-3A 
screen.  It  s.imply  traverses  the  circular  linked  lists  and 
generates  the  appropriate  display  objects  for  the  ships, 
their  aim  points  which  the  own  ship  aims  at,  and  the  gun 
aim  point.  It  also  displays  the  travelling  projectile  if 
it  is  fired  by  the  system.  The  routines  for  generating  the 
objects  are  internal  for  the  DISPLAY. PLI.  Another  routine, 
TRANSLATE,  translates  the  cartesian  coordinates  to  the 
stream  of  characters  that  represent  the  x  and  y  grid  coor- 
dinates of  the  RG-512  Retrographic  Screen  Memory.  Finally, 
the  internal  routine  DRAW  puts  the  generated  objects  on  the 
screen  in  vector  mode.  According  to  the  key  variable,  D, 
it  either  sets  the  data  level  to  white  and  puts  the  object 
on  the  screen,  or  sets  the  data  level  to  black  and  makes 
selective  erasures. 

c.  STATUS. PLI 

This  routine,  which  is  invoked  at  every  second, 
is  the  interface  of  the  system  to  the  ADM-3A  video  terminal 
keyboard.  The  commands  for  the  system  are  read  from  the 
keyboard  by  calling  the  serial  I/O  chip  (USART)  interface 
assembly  program,  KEYBOARD,  which  will  be  presented  under 
Miscellaneous  Assembly  Routines. 
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The  are  four  "boolean  variables  used  in  the 
simulation  program.  Those  are  ENGAGED,  MAGNIFIED,  FIRED, 
and  ERRORON.  The  STATUS. PLI  sets  these  variables 
according  to  the  value  of  the  parameter  passed  to  the 
assembly  interface  routine.  ENGAGED  (with  "E")  shows  if 
the  system  is  engaged  to  any  target  (for  TACTICAL  .PLI )  . 
MAGNIFIED  (with  "m"),  which  is  used  in  DISPLAY. PLI,  shows 
which  display  scale  is  being  used  and  what  the  reference 
point  of  the  display  is.  Usually,  the  display  on  the 
screen  is  relative  to  own  ship.  But  that  can  be  changed  so 
that  the  ship  engaged  is  at  the  center  to  the  screen  by 
setting  MAGNIFIED  true.  FIRED  (with  T)  boolean  variable 
is  used  to  commence  the  ballistic  calculations  and 
display.  It  is  used  both  in  TACTICAL. PLI  and  DISPLAY. PLI. 
Finally,  ERRORON  (with  "d")  is  used  to  transfer  the  control 
to  the  dynamic  debugging  module, 
d.   IDLE. PLI 

This  program  is  the  idle  routine  for  the 
system,  as  it  waits  for  a  250  millisecond  timing  interrupt 
to  occur.  It  is  the  interface  program  for  the  six 
potentiometers  which  are  used  as  sensors  for  the  own  ship 
velocity  vector,  the  known  ship  velocity  vector,  and  the 
gun  elevation  and  bearing.  The  velocity  vectors  are  com- 
posed of  speed  and  course  components.  The  IDLE. PLI  gets 
this  information  by  calling  the  Analog-to-Digital  Converter 
interface  assembly  program,   ATOD.    The   control   then 
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proceeds  to  convert  this  information,  which  is  in  the  fixed 
binary  (7)  form  in  range  (-128,  +127),  to  appropriate 
coordinate  values,  e.g.  50  knots  maximum  speed  and  the  true 
azimuth  between  0  and  360  degrees.  This  routine  calculates 
own  ship  velocity  components  in  cartesian  coordinates  for 
later  use  by  TACTICAL. PLI .  It  also  makes  the  initial 
ballistic  computations  for  the  gun. 
4.   Real  Time  Executive  Model 

This  module  works  as  the  interrupt  handler  for  the 
real  time  interrupts  that  are  initiated  by  programmable 
hardware  components  every  250  milliseconds.  It  is  invoked 
by  the  WAR. PLI  the  first  time  and  interrupts  thereafter. 
It  responds  to  the  timing  interrupts,  which  tell  the  system 
that  data  must  be  collected  at  this  point  in  time.  The 
module  then  resolves  the  priorities  of  the  simulation 
system  module  programs  and  arbitrates  the  flow  of  control 
during  the  execution  of  the  system.  The  real  time 
executive  module  makes  use  of  the  operating  system 
primitives,  which  are  presented  in  the  following 
subsections.  The  labels  PI  through  P4  are  associated  with 
the  simulation  system  modules  TACTICAL. PLI,  DISPLAY. PLI, 
STATUS. PLI,  and  IDLE. PLI,  respectively.  The  listing  of  the 
programs  included  in  the  Real  Time  Module  are  presented  in 
Appendix  D. 
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a.   ARBITER. A86 

This  assembly  language  program  is  the  real 
"workhorse"  of  the  entire  system.  It  first  allocates  stack 
areas  for  four  simulation  system  during  the  assembly  time. 
Upon  invocation  by  the  main  procedure,  it  initializes  the 
programmable  hardware  components  and  transfers  the  control 
to  the  P4.PLI  process,  which  in  turn  calls  IDLE. PLI 
repetitively  until  the  first  timing  interrupt  occurs.  The 
interrupt  entry  point  PROC0,  where  the  process  switcning 
starts,  is  entered  by  the  interrupt  software.  At  this 
point  of  execution,  the  external  variable  fourthevc,  which 
signals  the  system  that  250  millisecond  event  has  occured, 
is  updated  to  the  new  value  by  incrementing  it  by  one. 
After  storing  the  state  of  the  program  which  is  interrupted 
during  its  execution,  ARBITER. A86  invokes  SCHEDULE. PLI  to 
obtain  the  name  of  the  ready  program  that  has  the  highest 
priority.  If  there  are  none,  the  interrupted  program  is 
resumed.  If  there  is  any  ready  process  of  higher  priority, 
then  ARBITER. A86  loads  the  process  state  and  gives  the 
control  over  to  it.  During  this  process  switching,  the 
upper  boundaries  of  the  stack  areas  are  checked  for  a 
possible  stack  overflow,  which  could  happen  if  the  time 
interval  was  not  sufficiently  large  for  the  system  module 
routines  to  finish  execution  before  the  next  timing 
interrupt  comes.  ARBITER. A86  has  a  second  entry  point, 
STORESTATUS,  for  the  synchronization  primitive  AWAIT. PLI  to 
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enter  when  the  correct  number  of  interrupts  for  the  calling 
synchronization  primitive  have  not  yet  occured. 

b.  AWAIT.  P?*I 

This  synchronization  primitive  is  invoked  as  as 
an  operating  system  primitive,  by  any  process,  PI  through 
P3.  AWAIT  compares  the  value  of  the  external  variable 
FOURTHEVC  to  the  threshold  value  of  the  calling  process  to 
see  if  it  is  greater  or  equal  to  the  value  at  which  the 
process  is  to  proceed.  If  not,  then  it  calls  the 
STORESTATUS  entry  of  ARBITEE.A86  to  relinquish  the  control 
to  the  awaiting  ready  process,  or  to  the  P4.PLI  that  calls 
the  IDLE.PLI  simulation  system  program  as  the  system  idling- 
routine  . 

c.  SCHEDULE. PLI 

This  synchronization  primitive  is  called  "by 
ARBITER. A86  to  return  the  name  of  the  highest  priority 
ready  process.  It  does  that  simply  "by  identifying  the 
first  ready  process  on  the  list.  Because  the  scheduler 
scans  the  list  in  the  descending  priority  order,  the 
highest  priority  ready  process  will  automatically  he 
scheduled. 

d.  THRESH. PLI 

This  routine,  when  invoked  by  processes  PI 
through  ?3,  increments  the  corresponding  thresholds  in  an 
external  one  dimensional  array  called  THRESHOLD.  This 
table    is   used   by   the   AWAIT. PLI    and    SCHEDULE. PLI 
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synchronization   primitives   to   decide  whether   or   not  a 
process  is  ready  for  execution. 

e.  Pl.PLI 

This  process  is  basically  an  infinite  loop. 
Within  this  loop,  there  are  three  subroutine  calls.  The 
routine  first  makes  a  call  to  AWAIT. PL1  to  see  if  it  is 
time  for  it  to  proceed.  If  not,  the  control  doesn't  come 
hack  again;  instead,  the  current  state  of  the  process  is 
stored  hy  ARBITER. A86  and  the  highest  priority  ready  process 
is  executed.  If  it  is  the  time,  the  control  proceeds  to 
call  the  simulation  system  module  program  TACTICAL. PLI . 
After  that,  a  call  to  THRESH. PLI  is  made,  where  the 
threshold  value  that  is  allocated  to  Pl.PLI  is  incremented 
hy  the  proper  value.  When  the  infinite  do  loop  repeats 
itself,  the  call  to  the  AWAIT. PLI  will  indicate  that  the 
process  TACTICAL. PLI  is  not  yet  ready  for  execution  and 
control  is  transfered  to  the  highest  priority  ready 
process. 

f.  P2.PLI 

This  process  is  identical  to  Pl.PLI  in  form 
except  the  call  is  to  DISPLAY. PLI  instead  of  to 
TACTICAL. PLI. 

g.  P3.PLI 

This  process  is  identical  to  Pl.PLI  in  code 
except  the  call  is  to  STATUS. PLI. 
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h.   P4.PLI 

This  process  is  similar  to  PI  through  P3  in  the 
structure  descrihed  above.  There  is  only  one  call  in  the 
infinite  do  loop,  which  is  to  IDLE.PLI.  This  routine  is 
always  ready  for  execution  and,  basically,  repeats  itself 
until  the  next  timing  interrupt  comes  along. 
5«   miscellaneous  Assembly  Routines 

There  are  few  machine  dependent  functions  that 
cannot  he  accomplished  "by  the  high-level  language  PL/I-86. 
Assembly  routines  were  written  to  interface  the  PLI-86 
programs  with  the  hardware  of  the  8086  microprocessor. 
These  assembly  routines  are  included  within  the  main  tody 
of  ARBITER. A86.  There  are  two  parameter  passing 
conventions  from  PL/I-86  to  the  assembly  language  routines. 
In  the  first  one,  there  is  only  one  argument  passed  in  the 
accumulator,  as  in  a  function  call.  In  the  subroutine 
calls,  which  is  the  case  here,  the  address  of  the  VECTOR 
that  contains  the  pointers  to  the  actual  parameters  is 
passed  in  the  BX  register.  The  following  subsections  give 
some  descriptions  about  those  assembly  routines.  Appendix 
E  shows  the  listings  of  the  rrodules. 

a.   KEYBOARD. A86 

This  routine  is  invoked  by  STATUS. PLI  to  read 
the  keyboard.   It  is  written  so  that  the  keyboard  status  is 
read   to  see  if  a  key  had  been  pressed  instead   of   waiting 
indefinitely  until   a  key  was  depressed,   as  would  be   the 
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case  had  the  PL/I  get  statement  been  used.  The  program 
first  reads  in  the  status  of  the  serial  I/O  interface  chip 
(USART)  to  see  if  a  character  has  been  received  from  the 
keyboard.  If  it  has,  then  the  character  is  read  and  placed 
into  a  corresponding  character  variable,  which  is  the 
formal  parameter  in  the  subroutive  invocation.  If  there  is 
no  character  received  since  the  last  attempt  to  read,  the 
ASCII  equivalent  of  0  is  put  in  key.  The  reason  for  that  is 
that  the  character  0  is  not  being  used  as  a  command. 

b.  AT0D.A86 

This  assembly  routine  is  called  by  IDLE.PLI  to 
read  the  first  six  Analog-to-Digital  Converter  Board 
outputs.  The  reason  to  write  this  assembly  routine  is  that 
the  Analog-to-Digital  Converter  ports  are  memory  mapped  to 
be  in  the  segment  D000H.  The  PL/I  function  UNSPEC  works  for 
those  memory  locations  which  are  included  within  the  first 
64K  bytes  of  memory.  The  assembly  routine  sets  the  proper 
segment  and  source  index  registers  to  point  to  those 
locations  and  makes  an  ordinary  read  operation.  This  value 
is  then  put  in  the  formal  parameter  passed  tc  the  PLI-86 
routine. 

c.  RINGBELL.A86 

This  assembly  routine  simply  sends  a  bell 
character  to  the  video  terminal  and  causes  a  bell  sound  to 
ring.  This  is  equivalent  to  sending  a  control  G  in  PL/I -86. 
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The   only  difference   is   that  it  can  be   used   in   other 
assembly  routines. 

d.  WAIT.A86 

B  This  assembly  routine  reads  in  the  status  of 
the  I/O  interface  chip  and  waits  until  the  transmitter 
buffer  is  empty?  i.e.  the  character  which  hai  been  in  the 
buffer  is  received  by  the  video  terminal  and  an 
acknowledgement  signal  is  sent  back  to  the  interface  chip. 
This  routine  is  used  by  assembly  routines  that  put  out  a 
message . 

e.  SUSPEND. A86 

This  routine  simply  resets  the  interrupt  bit  of 
the  program  status  word  (PSW)  to  disable  the  8085  CPU  from 
acknowledging  the  interrupts.  It  is  used  by  the  dynamic 
debugging  system  to  stop  the  real  time  clock. 

f.  RESUME. A86 

This  routine  first  sets  the  interrupt  flag  to 
enable  the  8086  CPU  to  respond  to  the  interrupt  requests. 
It  also  resets  the  FIT  that  is  used  to  generate  the  timing 
clock  pulses  for  the  PIC. 

D.   INITIALIZATION  OF  THE  PROGRAMMABLE  COMPONENTS 

The  iSBC  86/12A  board  has  three  programmable  hardware 
components,  which  were  described  in  Chapter  II.  In  the 
following   subsections,   the  initialization   sequences   for 
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those  hardware   components  which  produce   the  real   time 
synchronization  are  described. 
1.   USART  Programming 

The  8251A  USART  converts  parallel  output  data  into 
virtually  any  serial  output  data  format.  The  USART  also 
converts  serial  input  data  into  the  parallel  data  format. 
Prior  to  starting  to  transmit  or  to  receive  data,  the  USART 
must  he  loaded  with  a  set  of  control  words.  These  control 
words,  which  define  the  complete  functional  operation  of 
the  USART,  must  immediately  follow  a  reset  (internal  or 
external).  There  are  two  types  of  control  words,  namely,  a 
Mode  instruction  and  a  Command  instruction.  Once  the  Mode 
instruction  has  "been  sent,  the  Command  instruction  can  he 
sent  at  any  time  prior  to  a  read/write  operation.  The 
following  assembly  code  is  used  to  initialize  the  USART 
read/write  mode: 


MOV   AL,37H 
OUT   00DAH,AL 


During  the  course  of  execution,   the  serial  I/O 

interface  routine  executes  the   following  assembly  code  to 

read   the  USART  status  and  to  read  the  receiver  buffer  if 
any  character  has  been  received: 


IN   AL.00DAH 
AND  AL,02H 
JZ   KEYBOARD1 
IN   AL,00D8H 
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2'      ?IT  Programming 

The  8253  PIT  has  three  independent  counters. 
They  are  Counter  0,  Counter  1,  And  Counter  2.  The  input 
clock  frequency  is  22.1184  KHz  supplied  by  a  crystal  oscil- 
lator. The  input  clock  frequencies  can  be  adjusted  via 
jumpers.  In  this  project,  Counter  1,  with  the  default 
factory  jumper  connection  (E59-E60),  is  used.  The  input 
frequency  is  153.6  KHz.  It  is  chosen  to  work  in  mode  0  so 
that  it  gives  an  interrupt  on  terminal  count.  The  formula: 

N  =  TC 

where 

N  is  the  count  value  for  the  counter 

T  is  the  desired  interrupt  time  interval 
in  seconds 

C  is  the  internal  frequency  (Hz) 

From  the  above  formula,  the  count  number  for 
the  counter  1  is  found  to  be  38400  decimal  (9600  hex). 
Since  it  is  not  possible  to  express  this  number  in  four 
decimal  digits,  the  binary  count  mode  is  selected.  The 
counter  is  initialized  by  sending  a  mode  control  word, 
followed  by  a  down-count  number.  Once  the  counter  is 
initialized,  sending  the  down-count  number  resets  it  to  the 
start  condition.  The  following  sequence  of  code  is  used  to 
program  the  PIT: 
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MOV  AL,50H 

OUT  00D6H.AL 

MOV  AL,00B 

OUT  00D2H,AL 

MOV  AL,60H 

OUT  00D6H.AL 

MOV  AL.96H 

OUT  00D2H,AL 


3»   ?IC  fiogramming 

The  8259A  PIC  is  programmed  in  the  nested  mode. 
The  master  PIC  with  no  slaves  is  accepted.  For  this  parti- 
cular situation,  the  initialization  words  1,2,  and  4  are 
sent.  The  initialization  word  2  is  set  to  represent  the 
interrupt  vector  address.  This  is  the  address  that  the 
control  is  given  when  the  interrupt  1  occurs  (04E)  .  An 
interrupt  mask  "byte  is  used  to  mask  out  the  irrelevant 
interrupts  for  the  purpose  of  this  thesis.  The  PIC  can  te 
reset  after  each  interrupt  simply  "by  sending  the  EOI  (end 
of  interrupt)  status  "byte  to  the  appropriate  address.  The 
initialization  sequence  is  as  follows: 


CLI 

MOV  AL,13H 

OUT  00C0H,AL 

MOV  AL,20E 

OUT  00C2H 

STI 

MOV  AL,0FDH 

OUT  00C2H,AL 


To  reset  the  PIC, 

MOV   AL,20H 
OUT   00C0,AL 
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E.  ASSEMBLY,  COMPILING  AND  LINKING 

The  assembly  language  code  was  written  in  RASM-86  and 
assembled  by  using  the  RASM-86  Assembler.  This  assembler 
produces  relocatable  files  that  can  then  be  linked  with 
other  separately  compiled  or  assembled  object  files  by  Link 
86.  This  linker  accepts  three  types  of  input  files.  Those 
are  the  object  file,  library  file,  and/or  an  input  file. 
Input  files  are  very  useful  tools  in  that  they  include 
input  command  lines  by  an  input  file  instead  cf  writing  the 
command  line  each  time  the  programs  are  to  be  linked.  The 
PL/I-86  compiler  is  used  to  compile  PL/I  programs.  This 
compiler  requires  a  128  Kbyte  RAM,  as  opposed  to  the  PL/I- 
80  compiler,  which  requires  48K  RAM. 

F.  TESTING 

The  hierarchical  simulation  program  modules  were 
designed  and  tested  in  a  top-down  manner.  An  extensive 
dynamic  debugging  module  was  used  in  the  testing  of 
individual  modules  (see  Appendix  F).  The  testing  phase  is 
first  started  with  writing  a  skeletal  model  for  the  real 
time  executive  module.  The  PL/I-86  output  statements 
(stubs),  which  printed  some  appropriate  numbers,  were 
inserted  in  the  places  where  the  simulation  system  module 
programs  were  invoked.  The  DDT86  (Dynamic  Debugging  Tool) 
was  used  to  test  and  debug  this  skeleton  program.  Since  it 
was  a  real-time  interrupt  driven  program,   the   interrupt 


47 


enable  tit  (I)  of  the  program  status  word  was  reset  to  zero 
(0)  to  control  the  flow  of  the  program.  Some  error 
checkings  are  inserted  in  the  main  assembly  language 
program,  ARBITER. A86,  to  see  whether  the  process  switching 
was  done  correctly,  or  to  see  if  any  of  the  stacks 
allocated  to  the  synchronization  primitives  have 
overflowed . 

After  testing  the  real-time  executive  model,  the  second 
phase  was  the  testing  of  the  subroutines  that  are  used  by 
the  simulation  system  module  programs.  Appendix  G  shows  an 
example  for  testing  a  subroutine. 

The  third  phase  of  the  testing  was  to  test  and  debug 
the  simulation  system  program.  The  dynamic  debugging 
module  was  used  for  this  purpose.  This  module  is  composed 
of  FL/I-86  %INCLUDE  files  and  external  PL/I-86  programs. 
The  %INCLUDE  files  are  inserted  into  the  various  parts  of 
the  program  being  tested.  The  code  of  this  debugging 
system  is  bordered  with  comment  lines  from  the  main  body  of 
the  program  it  tests.  It  is  not  visible  to  the  program, 
i.e.,  it  brings  its  local  and  global  variables  with  the 
LOCALS. AID  declaration  %INCLUDE  file.  It  is  possible  to 
manipulate  the  system's  external  variables  through  the 
debugging  system  module,  IDLE.PLI. 

The  PL/I-80  had  been  used  in  the  early  stages  of  the 
testing  phases  because  of  the  existence  of  redundant  Intel 
8080  based   systems  in  the  Naval   Postgraduate  Micro-Lab. 
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But  in  the  later  stages,  it  was  realized  that  this  had 
caused  some  problems,  due  to  some  incompat ibili ties  between 
the  PL/I-80  and  PL/I-86  systems.  These  deficiencies  of  the 
PL/I-86  have  necessitated  the  testing  and  debugging  of  the 
programs  to  be  done  in  the  PL/I-86  based  systems,  The  need 
for  such  a  thorough  debugging  system  module  was  then 
realized. 
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IV.   CONCLUSIONS 

The  original  objectives  of  the  thesis  have  been 
accomplished,  to  a  large  extent.  The  hardware 
interconnections  intended  to  promote  real  time  clock 
operations  have  been  successful.  A  test  model,  which 
comprised  the  real  time  executive  module  and  the  FL/I  put 
statements,  instead  cf  the  simulation  system  modules,  was 
developed  to  check  the  system's  operation  and  timing. 
Correct  results  appeared  on  the  screen.  Then,  the  testing 
and  debugging  of  the  simulation  system  programs  showed  that 
their  algorithms  and  operations  were  correct,  with  the 
exception  of  the  simulation  system  program,  DISPLAY. PLI. 
The  testing  of  DISPLAY. PLI  shewed  that  the  objects  to  be 
displayed  on  the  video  screen  were  not  successfully  put  on 
the  screen.  One  error,  which  was  an  automatic  conversion 
error,  was  found  in  the  routine  TRANSLATE  and  corrected  by 
using  a  step  variable.  However,  an  error  still  exists  in 
the  body  of  the  procedure  DRAW. 

Since  the  testing  phase  of  the  DISPLAY. PLI  has  not 
been  accomplished,  the  objective  of  synchronizing  two  iSBC 
86/12A  boards  could  not  be  accomplished.  The  intended 
purpose  for  this  objective  was  to  make  the  second  iSBC 
86/12A  jump  to  a  waiting  loop  with  the  initial  power  start 
up  interrupt  (reset),  to  load  the  assigned  simulation 
program  segment  to  the  common  RAM,   and  to  direct  it  to  the 
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beginning  of  that  program  segment,  through  a  bus  vectored 
interrupt . 

A  hierarchical  and  modular  program  model  was 
constructed  through  the  use  of  data  structures  and 
structured  programming.  The  modularization  allows  possible 
future  changes  to  the  programs. 

The  simulation  system  program  constructed  in  this 
thesis  could  he  a  basis  for  further  enhancements  towards  a 
complete  fire  control  system,  or  a  related  tactical 
simulation  system,  due  to  its  modularized  nature. 

The  dynamic  debugging  module  designed  to  test  and 
debug  the  simulation  system  modules  can  be  used  for  the 
purpose  of  testing  any  other  programs,  simply  by  changing 
the  names  and  formats  of  the  variables  that  the  debugging 
system  manipulates.  The  advantage  of  using  the  %REPLACE 
and  %INCLUDE  pre-processor  statements,  which  are  peculiar 
to  the  PL/I-86  version  of  the  subset  G,  makes  such  an 
implementation  feasible. 
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APPENDIX   A 
HEAD  MODULE  PROGRAM  LISTINGS 


A.    WAR.PLI 


/* 

Prog  Name 

Date 

Written 

For 

Advisor 

Purpose 


WAR.PLI 

December  83 
"by     :   M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This   is   the  main  procedure   of   the 
modular  simulation  program.   It  invokes  the  initialization 
module  to  set  up  the  target  database  and  tc  initialize  the 
external  variables  used  throughout  the  simulation  program. 
*/ 


WARrPROCEDURE  OPTIONS (MAIN ) ; 

/♦external  procedures*/ 

DCL 

(INITVARS  .ARBITER)  ENTRY; 


/♦this  call  to  the  initialization  module  initializes  the 
simulation  system*/ 

CALL  INITVARSJ 

/♦this   call   gives   the  control  over   to   the   real   time 
executive  module*/ 

CALL  arbiter; 


END  war; 
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B.  GLOBALS.INP 
/* 


Prog  Name 

Date 

Written  by 

For 

Advisor 

Purpose 


GLOBALS.INP 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  %include  file  contains  the  declara- 
tions of  the  global  variables  used  in  the  simulation  program 
*/ 


DCL 

(COUNTER, SECONDS, MINUTES, HOURS, WAKE  PTR, 
SHIP  PTR,AVAILSEIP,AVAILWAKE,P,Q,NUM3ERSHIPS, 
NODE, TARGET, KNOWN)  FIXED  BIN(7)  EXTERNAL, 
FOURTHEVC  FIXED  BIN (15)  EXTERNAL  , 

D  FIXED  BIN(7)  EXTERNAL, 
(DT,T_PRIME,T_OF,T)  FLOAT  EXTERNAL, 
(I,J,XX,YT)  FIXED  BIN(15)  , 
CURRENTPROC  FIXED  BIN (7)  EXTERNAL  , 

(ENGAGED, MAGNIFIED, FIRED, ERRORON, DONE)  BIT(l)  EXTERNAL  , 

KEY  CHARACTER  (1)  EXTERNAL  , 

THRESHOLD (0:2)  FIXED  BIN (15)  EXTERNAL  , 

ARG(0:5)  FIXED  BIN(7)  EXTERNAL, 

(VX  OWN,YY  0WN,VX_TARGET,7Y_TARGET,VX_REL, 
VY~REL,VX^ROUND,VY_ROUND,VR)  FIXED  DECIMAL    EXTERNAL, 

ALPHA  FIXED  DECIMAL   EXTERNAL  , 

(AX  SUM,BX  SUM,CX_SUM,AY_SUM,BY  SUM,CY_SUM, 
AX~BX,CX,AY,BY,CY,X_AT5,Y_AT5,R,DX  DT_AT5, 
DY  DT_AT5,DR_DT_AT5,X_0FFSET,Y_0FFSET,M)FIXED  DECIMAL 

EXTERNAL, 

(01,02) (5)  FIXED  DECIMAL   EXTERNAL  , 

1  SHIP(MAX  SHIPS)  EXTERNAL, 
2  VELOCITY, 

3  COURSE  FIXED  DECIMAL    INIT(0.0), 
3  SPEED  FIXED  DECIMAL    INIT(0.0), 
2  POSITION, 

3  AZIMUTH  FIXED  DECIMAL    INIT(0.0), 
3  RANGE  FIXED  DECIMAL    INIT10.0), 
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2  COORDINATES, 

3  X  FIXED  DECIMAL    INIT(0.0), 

3  Y  FIXED  DECIMAL    INIT(0.0), 
2  AIM, 

3  X_AIM  FIXED  DECIMAL    INIT(0.0), 

3  Y  AIM  FIXED  DECIMAL    INIT(0.0)f 

2  COUNT'FIXED  BIN  (7)  INIT(0), 

2  NUMBER  FIXED  BIN  (7)  INIT(0), 

2  PTR  FIXED  BIN  (7)  INIT(0), 

2  LINK_SHIP  FIXED  BIN  (7)  INIT(0), 

2  FRIEND  BIT(l)  INIT(FALSE), 

1  OBJECT (MAX  SHIPS)  EXTERNAL, 

2  LOCATIONS, 

3  0  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 
3  V  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 

2  AIMS, 

3  U  AIM  (0:10)  FIXED  BIN(15)  INIT(UD  -1), 
3  V'AIM  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 

2  GUN, 

3  U  GUN  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 
3  V'GUN  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 

2  WAKES, 

3  U  WAKE  (0:10)  FIXED  BIN(15)  INIT((11)  -1)  , 
3  UU  WAKE  (0:10)  FIXED  BIN(15)  INIT((11)  -1 ) 
3  V  WAKE  (0:10)  FIXED  BIN(15)  INIT((11)  -1), 
3  VV_WAKE  (0:10)  FIXED  BIN(15)  INIT((11)  -1 ) 

1  GUN  EXTERNAL, 

2  POSITION, 

3  AZ  FIXED  DECIMAL    INIT(0.0)t 
3  ALT  FIXED  DECIMAL    INIT(0.0), 

2  COORDINATES, 

3  X  GUN  FIXED  DECIMAL    INIT(0.0), 
3  Y~GUN  FIXED  DECIMAL    INIT(0.0), 

1  WAKE(4)  EXTERNAL, 
2  COORDINATES, 

3  X.WAKE  FIXED  DECIMAL    INIT(0.0), 
3  Y  WAKE  FIXED  DECIMAL    INIT10.0), 
2  LINK_WAKE  FIXED  BIN(7)  INIT(0), 

(SUSPEND, RESUME, ARBITER, INITVARS)  ENTRY, 

KEYBOARD  ENTRY  (CHARACTER ( 1 ))  , 

ATOD  ENTRY  (FIXED  BIN(7), FIXED  BIN(7))J 
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C.   CONST 

.INP 

/* 

Prog  Name 

:  CONST. INP 

Date 

:  December  83 

lor 

:  Thesis 

Advisor 

:  Professor  Kodres 

Purpose 

:  This  %include  file 

declarat i 

DBS 

used  throughout  the 

*/ 

contains  the  constant 
program. 


%REPLACE 
MAX  WAKE  BY  4, 
MAX  SHIPS  BY  2, 
MAXVARS  BY  82, 
OWN  BY  1, 
RMAX  BY  25000.0, 
MAXSQ    BY   1.0731+09, 
TOP  BY  32767.0, 
G  BY  10.7246, 
VM  BY  518.0, 
A  BY  512, 
B  BY  390, 
K  BY  1.40625, 
L  BY  4.513, 
TWO  PI  BY  360.0, 
PI  BY  3.1416, 
00  BY  1.0, 
TRUE  BY  '1'B, 
FALSE  BY  '0'B, 
NIL  BY  0, 

CLEAR_SCREEN  BY  "V  [~L 
CLEAR  ALPHA  BY  '~Z', 
VECMOD  BY  '"] ', 
POINTMOD  BY  '~V. 
ALPHA4010  BY  '~\   ', 
ALPHA3A  BY  '~\~  ~X', 
WHITEMOD  BY  '"[a', 
BLACKMOD  BY  '*['; 


/*max  number  o 
/*max  number  o 
/*max  number  o 
/*ownship  indi 
/*max  gun  rang 
/*max  argumen 
/*max  number  f 
/*gravitationa 
/*muzzle  veloc 
/*x  coord,  for 
/*y  coord,  for 
/*azimuth  prop 
/*speed  propor 
/^definition  f 
/^definition  o 
/*legendre  pol 
/^boolean  true 
/♦boolean  fals 
/*in  linked  li 
/*char.  sequen 


/* 

f»            »• 

/* 

tf             M 

/* 

ff                      M 

/* 

r»              »i 

/* 

tt              »i 

/* 

t*              it 

/* 

ft                   II 

f  wake  nodes*/ 

f  ship  nodes*/ 

f  variables*/ 

cator*/ 

e*/ 

t   for   SQRT   */ 

or  fixed   (15)*/ 

1  con.yd/sec2*/ 

ity*/ 

center*/ 

center*/ 
ortionality  c.*/ 
ticnality  c.*/ 
or  360  degree*/ 
f  pi  rad/180deg*/ 
y.  of  zero  deg.*/ 
*/ 
e*/ 
st  terminology*/ 

ce  for  retro  .*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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APPENDIX   B 
INITIALIZATION  MODULE  PROGRAM  LISTINGS 


A.   INITVARS.PLI 


/* 

Prog  Name 

Date 

Written  by 

For 

Advisor 

Purpose 


INITVARS.PLI 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  routine  prompts  the  user  to  give 
the  time  interval  (dt)  and  constructs  the  tactical  circular 
linked   list   in  an  interactive  manner.   The  control   then 
proceeds  to  initialize  the  external  variables. 

initvars :proc  external; 
/* 


*/ 


del 


%  include 'const .  inp'J 
%include'globals. inp'J 


/♦this  iterative  loop  initializes  the  pool  of  available 
wake  nodes*/ 

do  i=l  to  max  wake-l> 

link_wake(i)=i+lj 
end; 
link_wake(max_wake)=nil ; 

/*this   sequence   initializes   the  pool  of  available   ship 
nodes*/ 

do  i=l  to  max_ships-i; 

link_ship(i)=i+U 

end; 

link  ship(max  ships)=nii; 

put  skip  list!  'Enter  the  time  interval  (dt)  in  seconds'); 
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/*  the  following  block  is  an  interceptor  for  a  too  large 
input  value*/ 

on  overflow  begin; 

put  list('***  too  large,  try  again'); 
goto  initi; 
end; 
initi: 

put  skip  listO'); 

get  list(dt); 

revert  overflow; 

put  skip  list ( 'Construction  of  the  tactical  database'); 

nuirberships=0; 

done=falseJ 

/*   this  procedure  call  gets  a  ship  node  from  the  pool   of 
available  ships  and  assigns  its  address  to  ship  pointer*/ 

ship_ptr=getship( ) ; 

do  while  (~done); 

put  skip  listCEnter  the  position  of  ',numberships , 


'th  ship  in  true  azimuth  and  in  yards 


'  ^ 


/  > 


/*the  following   two  on  condition  bodies  are  for  the   input 
line  at  init2*/ 

on  error  begin; 

put  list('***  bad  value, try  again'); 

goto  init2J 
end? 
on  f ixedoverflow  begin; 

put  list('***  too  large, try  again'); 

goto  init2; 
end? 
init2: 

put  skip  listO')  ; 

get  list (azimuth (ship_ptr ) ,range(ship_ptr) ) ; 

revert  error; 

revert  f ixedoverflow; 

put  skip  listCFriend  or  foe  (F/E)?'); 

put  skip  listO'); 

get  list(key); 

/*   the  following  sequence  adds  the   ship  node   to   the 
appropriate   circular  linked  list,   friend  ships  or   enemy 
ships,  according  to  the  friend  boolean  value  entered*/ 
if  (key='i")!(key='f ')  then  do; 
friend (ship_ptr )=true; 
if  linkshipv own)=nil  then 

link_ship(ship_ptr)=ship_ptr; 
else 

link_ ship ( shi p_ptr)=l ink  ship (own) ; 
/*end  if*/ 
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link  ship(ovn)=ship  ptr> 
end  7*do*/; 
else  do> 

friend(ship_ptr)=false; 
if  ptr(own)=nil  then 

link_ship(ship_ptr )=ship_ptr; 
else 

link_ship(  ship_ptr)=ptr(own ); 
/*end  if*/ 
ptrlown )=ship  ptr> 
end  /*if*/; 

/*  the  following  procedure  call  and  the  iterative  loop  get 
available  nodes  from  the  pool,  construct  a  circular  linked 
list  of  four  nodes,   and  assign  the  address  of  the  list  to 
the   ptr  pointer  of   the  ship  node  which   is   heing 
constructed*/ 

wake_ptr=getwake( ) ; 

q=wake_ptr» 

do  1=1  to  4J 

p=wake_ptr; 
wake_ptr=getwake( ) ; 
link_wake(p)=wake  ptr» 
end  /*do*/J 

link_wake(wake_ptr;=q; 
ptr(ship_ptr) =wake.ptr ; 
number ( ship_ptr) =numfcer ships » 
put  skip  list('Would  you  like  to  enter  another  ', 

'ship  (Y/N)?'); 
put  skip  listO'); 
get  list(key); 

if  (key='Y')!(key='y')  then  do; 
ship_ptr=getship( )> 
if  ship_ptr=nil  then 

done=true ; 
/*end  if*/ 
end; 
else 

done=true; 
/*end  if*/ 
end  /*do*/; 
seconds=0 ; 
minutes=05 
hours=0; 
wake_ptr=0; 
target=05 
t  pritT!e=0.0; 

t"of=0.0; 
t=0.0; 
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f riend(ovn)=true» 

known=2;  /*  engaged  ship  no  by  the  sensor  */ 

x  offsets. 0; 

y.off set=0.0J 

m=50.0; 

f ourthevc=0 ; 

1=0; 
j=0; 

currentproc=4J 

engaged=false; 

magnif ied=false; 

fired=false; 

erroron=f alse» 

key='0'; 

threshold(0)=i;  threshold( l)=4»  threshold(2)=4; 

vx_own=0.0J 

vy_own=0.0; 

vx_ target=0.0J 

vy_target=0.0J 

vx_rel=0.0J 

vy_rel=0.0 » 

vx_round=0.0J 

vy  round=0.0J 

vr=0.0J 

alpha=0.0J 

ax_sum=0.0;  bx_sum=0.0;  cx_sum=0.0; 

ay  sum=0.0J    by~sum=0.0J    cy   sum=0.0* 

ax=0.0;ix=0.0Jcx=0.0; 

a  y =0  . 0  ;  b  y=0 . 0 ;  c  y=0 . 0  J 

x   at5=0.0Jy_at5=0.0> 

r=0.0J 

dx  dt_at5=0.0J    dy_dt_at5=0.0J   dr  dt   at5=0.0; 

olTl)=1.0J    ol(2)=0.5J    ol(3)=2.0;"ol"(4)=-0.5;    ol(5)=-1.0; 

o2(l)=1.0;    o2(2)=-0.5J    o2(3)*-1.0;    o2(4)=-0.5J    o2(5)=1.0J 

/*getship,   when  invoked,   extracts  a  node  from  the  pool  of 

available  and   returns  a  pointer  value  pointing  to   that 

node.   It   puts  an  error  message  if  there  is   no  available 

node*/ 

getshiprprocedure  returns  (fixed  bin(7)); 

/*  del  */ 

%include  'globals .inp' ; 
if  availship=nil  then  do; 

put  skip  list('No  more  available  ship  nodes'); 

return(nil ) ; 

end  /*do*/; 
else  do» 

node=availship; 

avai lsh i p=link_ shi p( avail  ship) ; 
end  /*if*/» 
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return(node) > 
end  getshipj 

/*getwake  does  the  same  function  as  getship  except  for  the 
operations  made  are  on  wake  nodes*/      • 
getwakerprocedure  returns  (fixed  bin(7)); 

/*  del  */ 

%include  'globals .inp '; 

if  availwake=nil  then  do> 

put  skip  listCNo  more  available  wake  nodes'); 

return  (0); 

end  /*do*/J 
else  do; 

node=availwakeJ 

av a ilwake=link_ wake (avail  wake ); 
end  /*if*/t 
return(node) » 
end  getwake? 

end  initvarsJ 
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APPENDIX   C 
SIMULATION  SYSTEM  MODULE  PROGRAM  LISTINGS 


A.  TACTICAL. FLI 

/* 

Prog  Name  :  TACTICAL. PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  external  routine  calculates 

updates   the  positions  of  the  ships  in  the   tactical 

and   the   future  positions  of   the  ships  that 


and 
area 


ships  circular  linked  list  pointed  to   by 


belong   to 
ptr(own) , 


enemy 

and 

and   calculates  the  trajectory  of  the  travelling  projectile 

if  fired 

*/ 


TACTICAL :PROCEDURE  EXTERNAL; 


/* 

3 
V 


DCL 


%INCLUDE 
%INCLUDE 


'CONST. inp'; 
'GLOBALS.INP'; 


/♦following  sequence  of  code 
of  the  ships  in  the  tactical 
DO  1=2  TO  NUMBERSHIPSJ 

11   TARGET  =  SPEED (I)  * 
VT  TARGET  =  SPEED(I)  * 
YX'REL  =  VX  TARGET  - 
VY'REL  =  VY_TARGET  - 
WAKE  PTR  =  PTR(I); 


updates 
area*/ 


the  present  positions 


*  SIND 

*  COSD 
VX_OWNJ 

vy  own; 


(courseu)); 
(course(D); 
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X  WAKE(WAKE  PTR)  =  X(I)J 

Y~WAKE(WAKE~PTR)  =  Y(I)J 

Xll)  -  X(I)"+  VX_REL  *  dt; 

Y(I)  =  Y(I)  +  vyIrel  *  dt; 

PTR(I)  =  LINK  WAKE(WAKE  PTR);   /*ptr(i)  points  to*/ 

IF  COUNT(I)  <~4  TBEN  /*  the  oldest  wake*/ 

COUNT(I)=COUNT(I)+i; 
/*END  IF*/ 
END  /*D0*/J 


/♦calculating  the  future  positions  (aim  points)  starts 
here  by  using  the  least  squares  method  with  legendre 
polynomials.  The  coefficients  are  pre-calculated  according 
to  the  fifth  second  including  the  zeroth  second*/ 

filtering: 
target  =  ptr (own); 
done=true; 

if  " (target =n il)  then 
done=false; 

/*END  IF*/ 

do  while  ("done); 

if  c0unt(target)=4  then 
begin; 

AX  SUM  =  X(TARGET)  *  00;    /*Leg.  poly.  0  deg.*/ 

BX~SUM  =  X(TARGET)  *  01(5);/*  "  1      */ 

CX  SUM  =  X(TARGET)  *  02(5);/*  2      */ 

AY" SUM  =  Y (TARGET)  *  00  J 

BY~SUM  -  Y(TARGET)  *  01(5); 

CY  SUM  =  Y (TARGET)  *  02(5); 
WAKE  PTR  =  PTR(TARGET); 

j  -  I; 

DO  WHILE  (LINK_WAKE(WAKE  PTR)  "-  PTR (TARGET ) ) J 

AX_SUM  =  AX_SUM  +  X  WAKE (WAKE_PTR )  *  00? 

BX_SUM  =  BX  SUM  +  X  WAKE (WAKE  PTR)  *  01 (J) J 

CX_SUM  =  CX_SUM  +  X  WAKE(WAKE  PTR)  *  02(J)J 

AY  SUM  =  AY  SUM  +  Y  WAKE (WAKE_PTR)  *  O0J 

BY^SUM  =  BY'SUM  +  Y_WAKE(WAKE  PTR)  *  01(J)J 

CY_SUM  =  CY^SUM  +  Y  WAKE(WAKE  PTR)  *  02(J)J 
WAKE  PTR=LINK  WAKE (WAKE  PTR); 

j  -  j  +  i; 

END  /*DO*/J 

AX  =  AX_SUM  /  5.J 

BX  =  2.0  *  BX  SUM  /  5.J 

CX  =  2.0  *  CX  SUM  /  7.; 

AY  =  AY  SUM  /  5.J 

BY  =  2.0  *  BY  SUM  /  5. J 

CY  =  2.0  *  CY"SUM  /  7. J 
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X_AT5  =  AX  -  1.5*BX  +  3.5*CXJ 
Y_AT5  =  AY  -  1.5*BY  +  3.5*CYJ 


INCONVENIANCE: 

/♦this  begin  "block  is  inserted  to  avoid  the  complications 

which  might  arise  from  the  automatic  conversions*/ 

begin; 

dcl  (xstep.ystep)  fixed, 
(xf,yf,rsqd)  float  j 


IF  (ABS(X_AT5)>T0P)l (ABS(Y  AT5)>T0P)  TH: 
RSQD=-1.0; 
ELSE  do; 

xstep=binary ;x_at5); 

ystep=binary(y_at5)j 

xf=float(xstep); 

yf=float(ystep); 

rsqd=xf*xf+yf*yf; 

END  /*IF*/J 
IF  (RSQD<0.0)1 (RSQD>MAXSQ)  THEN 

R=0.0J 
ELSE 

R=SQRT(RSQD); 
/*END  IF*/ 
END  INCONVENIANCE; 


IN 


IF  (R=0.0)  ! 
X  AIM 
Y~AIM 
END  /*DO 

ELSE  do; 

ALPHA 
VR  = 

T_PRIME  =  R 
DX  DT_AT5  = 
DY  DT  AT5  = 
DR~DT_AT5  = 

T  OF 
X_AIM 
Y_AIM 
END  /*IF*/J 
END  /*IF*/; 

target=link  ship(target) j 
if  target=ptr(own)  then 
done=true; 

/♦END  IF*/ 
END  /*DO*/J 


(r>rmax)  then  do; 

(TARGET )=0.0J 
(TARGET ) =0.0; 

*/; 

=  ASIN;G*R/VM**2; 
VM  *  COS (ALPHA); 


/  2.0J/*IN  RADS*/ 


=  (R  + 
(TARGET)  =  X 
(TARGET)  =  Y 


/  vr; 

3.0*CX  - 
3.0*CY  - 
(X_AT5  * 

Y  AT5 

DR  DT  AT5 

AT  5 

AT5 


0.5*BXJ 

0.5*BYJ 

DX   DT_AT5    + 
*""DY_DT   AT5)    /   RJ 
*   T_PRIME)    /   VR; 
+   DX    DT    AT5   *   T    OFJ 
+  DY"DT"AT5  *  t   of; 


/*next    target?*/ 
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ROUNDTRACK: 

/*the  "ballistic   calculations   start   here*/ 

if  (fired)  then 
begin; 

vx_rel  =  vx  round  -  vx_ownj 
vy_rel  =  vy'round  -  vy  own  j 
x_gun  =  x_gun  +  vx  rel  *  dt j 
y_gun  =  y_gun  +  vy  rel  *  dt j 

T  =  T  -  dt; 

IF  T<=0  THEN  DO; 

PUT  LIST('~G')J 
FIRED  =  FALSE; 
END  /*IF*/J 
END  /*IF*/J 


END  tactical; 
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B.  DISPLAY. PLI 


/* 

Prog   Name 

Date 

Written  by 

For 

Advisor 


DISPLAY .PLI 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 
Purpose  :   This   routine  first  puts  the  time   in 

hours,  minutes,  and  seconds.  The  control  then  proceeds  to 
call  DRAW  subroutine  in  an  iterative  loop  to  erase  the  old 
objects.  It  then  calculates  the   positions  of  the  objects 
relative   to   either  ownship   or  the  ship   that  has   been 
targeted   according   to  MAGNIFIED. Then  it   calls   DRAW   to 
display  the  objects. 
*/ 


DISPLAYrPROCEDURE  EXTERNAL? 

/*DCL*/ 

%INCLUDE  'CONST. INP'J 
%INCLUDE  'GLOBALS. INP'J 


PUT  LIST('~]    X')J      /*ENTER  ALPHA  MODE*/ 
IF  MINUTES=0  THEN 
BEGIN? 

PUT  LIST  ('~[  =  %')  ; 

PUT  EDIT  (HOURS) (1(2) )J 

HOURS  =  HOURS+1? 

IF  H0URS=24  THEN 
HOURS  =  0J 

/*END  IF*/ 
END  /*IF*/J 

if  seconds=0  then 
begin; 

PUT  LIST  ('~0  ('); 

PUT  EDIT  (MINUTES)(F(2))J 

MINUTES  =  MINUTES+i; 

IF  MINUTES=60  THEN 

MINUTES  =  0; 
/♦END  IF*/ 
END  /*IF*/J 

PUT  LIST  ('~[=  +  '); 

PUT  EDIT  (SECONDS )1F(2)); 
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SECONDS  =  SECONDS+i; 
I?  SECONDS=60  THEN 

SECONDS  =  0J 
/*END  IF*/ 
PUT  LISTC>rX~~');  /*HOME  CURSOR*/ 

/*the  following  calls  erase  the  objects  from  the  screen*/ 
D=0; 
DO  1=1  TO  NUMBERSHIPSJ 

CALL  DRAW(OBJECT(I).U.OBJECT(I).V,D); 

CALL  DRAW(OEJECT(I).UU  WAKE .OBJECT ( I ) .VV  WAKE.D); 

CALL  DRAW(OBJECT(I).U  AIM  .OBJECT ( I )  .V  AIM.D) J 
END  /*DO*/i 
CALL  DRAW (OB JECT ( 1 ) .U .GUN .OBJECT ( 1 ) . V  _ GUN , D ) J 

/*the  following  sequence  converts  the  coordinates   of   the 
objects  to  the  grid  coordinates  of  the  screen  and  generates 
the  sequences  of  the  coordinates  for  the  objects*/ 
DO  1=1  TO  NUMBERSHIPSJ 

XX=A+BINARY ( (X ( I ) -X_OFFSET )/M ) J 
YY=B+BINARY( (Y(I )-Y~ OFFSET )/M) ; 
IF  (FRIEND(I))  THEN 

CALL  GENFRlEND(XX,YY,OBJ£CT(I).U.OEJECT(I) .V); 
ELSE 

CALL  GENFOE(XX.YY,OBJECT(I).U,OBJECT(I)  .V); 
/*END  IF*/ 

CALL  GENWAKE(XX,YY,OPJECT(I).U  WAKE  .OBJECT  ( I )  .V_WAKE  )  ; 
XX=A+BINARY((X  WAKE ( PTR ( I  )  )-X  OFFSET)/M)J 
YY=E+BINARY((Y~WAKE(FTR(I))-Y  OFFSET) /M) J 
IF  COUNT(I)=4  THEN 

CALL  GENWAKE(XX ,YY .OBJECT ( I ) .UU_WAKE, 

OEJECT(I).VV  WAKE); 
XX=A+BINARY((X_AIM(I)-X_OFFSET)/M); 
YY=B+BINARY((Y  AIM(I)-Y  OFFSET)/M); 
IF  ~((XX=A)&(YY=B))  THEN 
IF  1=1  THEN 

CALL  GENOURAIM(XX.YY.OBJECT(I) .U  AIM. 

OBJECT(I).V_AIM); 
ELSE 

CALL  GENAIM(XX,YY,OBJECT(I).U  AIM, 

OBJECT(I) .V  AIM); 
/*END  IF*/ 
/*END  IF*/ 
END  /*D0*/J 

XX=A+BINARY((X_GUN-X_OFFSET)/M)J 
YY=B+BINARY((Y_GUN-Y_OFFSET)/M) J 
CALL  GENGUN(XX,YY,OBJECT(l).U  GUN  .OBJECT (1 ) .V_GUN ) J 
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/*the  following  sequence  draws  the  objects  by  calling   the 
routine  DRAW*/ 

d-i; 

DO  1=1  TO  NUMBERSHIPSJ 

CALL  DRAW (OBJECT ( I ).U, OBJECT ( I ).V,D) J 

CALL  DRAW(OBJECT(I).U  WAKE f OB JECT ( I ) . V  WAKE,D)J 

II  (ENGAGED)  THEN  CALL  DRAW (OBJECT (I ) .U  AIM, 

0BJECT(I).7_AIM,D) 5 

END  /*DO*/i 

IF  FIRED  THEN  CALL  DRAW (OBJECT ( 1 )  .U_GUN .OBJECT (1 ). V,GUN ,D) J 

/*   the  following  procedures  produce  the  sequence  of  screen 
grid  coordinates  for  various  objects*/ 

GENFRIEND:PROC(X,Y,U,V); 

DCL 

(X,Y)  FIXED  BIN(15), 
(U,V)(0:10)  FIXED  BIN(15) J 

U(0)=XJ         V(0)=T-8J 

u(i)=x-6;     v(i)=y-3; 

U(2)=X-6J  V(2)=Y+3J 

U(3)=X;  V(3)=Y+8J 

U(4)=X+6J  V(4)=Y+3J 

D(5)=X+6J  V(5)=Y-3J 

U(6)=XJ  V(6)=Y-8J 

u(7)=-i;      ft?)— 1; 

END  GENFRIENDJ 
GENFOE:PROC(X,Y,U,V); 

DCL 

(X,Y)  FIXED  BIN(15), 
(U,V)(0:10)  FIXED  BIN(15)J 

U(0)=X+8J        V(0)=Y-4J 

u(i)=x-8;      v(i)=y-4; 

U(2)=XJ  V(2)=Y+8J 

U(3)=X+8J        7(3)=Y-4J 

u(4)=-i;      v(4)=-i; 
END  genfoe; 
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GENWAKE:PROC(X,Y,U,V); 
DCL 


(X,Y)  FIXED  BIN(15), 
(U,V)(0:10)  FIXED  BIN. 15); 

u(0)=x;  v(0)-t; 
u(i)=x;  v(i)=y; 
u(2)=-i;      ?(2)— 1; 

end  senvake; 

genouraim:proc(x,y,u,v) ; 

DCL 

(X,Y)  FIXED  BIN(15)f 
(U,V)(0:10)  FIXED  EIN(15); 

u(0)=x+8;  v(0)=y; 
u(i)=x-8;  v(i)=y; 
u(2)=x;       v(2)=y; 

U(3)=X;  V(3)=Y-8J 

U(4)=X;  V(4)=Y+8J 

u(5)=-i;       v(5)=-i; 

END  GENOURAIf*; 

GENAIM:PROC(X,YtU,V); 

DCL 

(X,Y)  FIXED  BIN(15)t 
(U,V)(0:10)  FIXED  BIN(15)5 

U(0)=X+4J        V(0)=Y+4; 
U(l)=X-4;        V(1)=Y-4J 

u(2)=x;       v(2)=y; 

U(3)=X+4J        V(3)=Y-4J 
U(4)=X-4J        V(4)=Y+4J 

u(5)=-i;      v(5)=-i; 

END  3ENAIM; 
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GENGUN:PROC(X,Y,U,V); 

DCL 

(X,Y)  FIXED  BIN(15), 
(U,V)(0:10)  FIXED  BIN(15)J 

u(a)=x+i;  v(0)=y-i; 
u(i)=x+i;      t(i)=i+ij 

U(2)=X-1J        T(2)=Y+i; 

u(3)=x-i;  v(3)=y-i; 
u(4)=x+i;  v(4)=y-i; 
u(5)=-i;      v(5)=-i; 

end  sengun; 


/*this  procedure  receives  two  arrays  and  a  key  variable   as 
paramaters,  and  either  displays  the  object  or  erases  it*/ 
DRAW:PROC(U,V,D)  EXTERNAL? 

DCL 

(U,V)(0:10)  FIXED  BIN(15), 
(I,J,H,D)  FIXED  BIN(7), 
RUB  CHAR(l)  EXTERNAL , 
C(7)  CHAR(l), 
Zl(0:3)  CEAR(l)  BASED(P), 
Z(0:3)  BIT(8)f 

P  pointer; 

P=ADDR(Z)J      /*Z  and  Zl  share  same  location  hereon*/ 
1=0; 

DO  WHILE  (Kll); 
IF  (D=l) 

/*enter  vector  set  level  wnite*/ 
THEN  PUT  LIST(  '~]~[a'); 
/*enter  vector  set  level  black*/ 
ELSE  PUT  LIST(  "*]"[', RUB)? 
/♦END  IF*/ 
DO  H=l  TO  5; 

IF  (U(I)<0)  THEN  DO? 

PUT  LIST( '~m~x~[=     '); 
return; 

END   /*IF*/J 
/*tbis   call    translates   the   coordinates   to   the 
stream  of  bits*/ 

CALL   TRANSLATE(U(I),V(I),Z)  ; 
I=I+U 
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/*this  put  statement  puts  out  the  tit  streams 
as  "being  characters*/ 

PUT  EDIT((Z1(J)  DO  J=0  TO  3))  (4A(1))J 
END  /*DO*/J 
/*the   following  two  statements  get  the  status   of 
the  screen.   The  status  is  not  sent  back  until  „the 
screen  is  ready.*/ 

PUT  LIST('~[  E')J       /*HANDSEAKE*/ 
GET  EDIT((C(J)  DO  J=l  TO  7))(7A(1))J 
END  /*DO*/J 
PUT  listOTx');       /*BACK  TO  ALPHA*/ 

TRANSLATE: PROCEDURE (X,Y,Z)  ; 
DECLARE  (X,Y)  FIXED  BIN(15), 

Z(0:3)  BIT(8), 

T  FIXED  BIN(15), 

SI  BIT  (16), 

SS  BIT(7), 

S  BIT  (8), 

I  FIXED  BIN(7); 
I  =  DIVIDE(Y,32,8)j 
SS=BIT(I,7)J 

s='0'b  ! I  ss; 

z(0)  =  '00100000'B  !  s; 

T  =  Y  -  (Y/32)  *  32? 
SI  =  BIT  (Tt16); 
S  =  SUBSTR(S1,8,8)J 
Z(l)  =  '01100000'B  !  s; 
I  =  DIVIDE  (X,32,8); 
SS=BIT(I,7); 

s='0'b  ! !  ss; 

z(2)  =  '00100000'B  !  s; 

T  =  X  -  (X/32)  *  32J 
SI  =  BIT(T,16)J 
S  =  SUBSTR  (SI, 8,8); 
Z(3)  «  '01000000'B  !  s; 

end  translate; 
end  draw; 
end  display; 
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C.   STATUS. PLI 


/* 

Prog 

Date 

Written 

For 

Advisor 

Purpose 

KEYBOARD 

used  in 

*/ 


Name        :  STATUS. PLI 
December  83 
by       :  M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

this  routine  calls  the  assembly  routine 
to  read  the  keyboard  to  set  the  boolean  variables 
other  routines 


STATUS  :PROCEDURE  EXTERNAL; 


/* 

] 

*/ 


DCL 


%INCLUDE  'CONST. INP'; 
^INCLUDE  'GL03ALS.INP'; 


CALL  KEYBOARD (KET); 

IF  (KEY='Q')!(KEY='q')  THEN 

stop; 
else  if  (key='e')!(key='e')  then 

engaged  =  true; 
else  if  engaged  &  (( rank (key )>48 )& (rank (key )<=57 ) ) 
then  begin; 

i=rank(key)-48; 

if  number  ( i  )=^0  teen 

LINK  SHIP(I)=i; 

else  if  friend(i)  then  do  j 

call  removenode(link_ ship ( own ),i)j 
call  addnode(ptr(own) ,1); 
friend(D=false; 

end; 

PTR(OWN)  =  i; 

end; 
else  if  (key='r')  !  (key='r')  then 

engaged=false; 
else  if  (key='w)  !(key  =  'm')  then  do  j 
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/*set  the  scale  tc  1/200*/ 

magnified=true; 

m=200.0; 

if  engaged  then  doj 

/*set   reference  as   the   target*/ 

X_0FFSET=X (PTR (OWN ) ) ; 

Y  0FFSET=Y(PTR(0WN))J 

END  /*D0*/J 
ELSE  do; 
/*ownship  is  the  reference*/ 

X_OFFSET=0.0J 

Y_OFFSET=0.0; 

END  /*DO*/J 
/*END  IF*/ 

end; 

else  if  (key='t') !(ksy='t')  then  doj 

/*set  the  scale  hack  to  normal  (1/50)*/ 
MAGNIFIED=FALSS; 
M=50.0J 
X  OFFSET=0.0J 
Y~OFFSET=0.0J 
END  /*D0*/;~ 

else  if  (key='f')!(key='f ')  then 

fired  =  true; 
else  if  (xey='d') !(key='d')  then 

erroron=true; 
else  if  (key='s') !(key='s')  then 

SIGNAL  ERROR(l); 
/*END  IF*/ 
KEY='0'; 


/*this   routine   removes  the  node  pointed  "by  QQ  from  the 
circular  linked  linked  list  pointed  hy  PP*/ 
REMOVENODE:PROC(PP,QQ); 

DCL 

(PP,QQ)  FIXED  BIN(7) J 

%include  'globals . i np  '  j 

p=pp; 

p=link  shif(p); 

do  while  (""(link_ship(p)=qq)); 

p=link  ship(p); 
end; 

link_ship(p)=link  ship(qq); 
end; 
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/*this   routine  adds  a  node  pointed  by  QQ  to  the  circular 

linked  list  by  PP*/ 

ADDNODE:PROC(PP,QQ); 

DCL 

(PP.QQ)  FIXED  BIN(7)5 
%INCLUD2'GLGBALS.INP'; 

P=PPJ 

p=linx  ship(p); 

do  while  ("(link  ship(p)*pp) ) j 

p=link_ship(p)j 
end; 

LINK  ship(f)=qq; 
link"ship(qq)=pp; 
end; 

end  status; 


73 


D.  IDLE.PLI 


/* 

Prog  Name 

Date 

Written  by 

lor 

Advisor 

Purpose 

output   to 

selected  sh 

elevation. 

values.   It 

find   relati 

range,   cart 

of  flight  co 

*/ 


IDLE.PLI 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kcdres 

This  routine  reads  the 
the  velocity  vectors  of 
and   the  gun  information 


get 

iP. 

It  then  converts  this  information  to 

calculates   ownship  speed  which  will 


A/D  converter 
ownship   and   a 

as  azimuth  and 
real  world 
he  used  to 


ve  speeds  later.  It  then  computes  the  maximum 
esian  coordinates  of  the  splash  point,  and  time 
rresponding  to  tne  current  gun  position 


IDLErPROCEDURE  EXTERNAL? 


/* 

] 

*/ 


DCL 


^INCLUDE 
%INCLUDE 


'CONST. INP'; 
'GLOBALS.INP 


values  are   fixed 
converts  those   to 


bin(7) 

fixed 


DO  D=0  TO  5J 

CALL  ATOD  (D,ARG(D))J 
END  /*DO*/J 

/*at  this  point  the  A/D  output 
values.  The  following  sequence 
decimal  values*/ 

COURSE(OVN)=ARG(0); 

SPEED(OWN)=ARG(4); 

C0URSE(5N0WN)=ARG(2); 

SPEED(KN0WN)=ARG(3)J 

AZ=ARG(1); 

ALT=ARG(5)J 

/*the  following  sequence  converts  A/D  values  to  real   time 
values  by  using  appropriate  proportionality  constants*/ 
COURSE(OWN)  =  COURSE(OWN)  *  KJ 
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COURSE(KNOWN)  =  COURSE (KNOWN )  *  K; 

AZ  =  AZ  *  K  * 

IF    COURSE(OWN)<0.0   THEN 

COURSE(OWN)    =   COURSE >OWN)    +  TWO   PI    ; 
IF   COURSE(KNOWN)<0.0    THEN 

COURSE(KNOWN)    =   COURSEUNOWN )    +   TWO_PI    J 
IF   AZ<0.0   THEN 

AZ  =  AZ  +  two_pi; 
IF  ALT>90.0  THEN 

ALT  =  90.0J 

SPEED(OWN)  =  SPEED(OWN)/LJ 
SPEED (KNOWN)  =  SPEED  KNOWN)  /  Li 

/*ovnship  speed  computations*/ 

VX  OWN  =  SPEED(OWN)  *  SI ND (COURSE (OWN  )) J 
VT^OWN  =  SPEED(OWN)  *  C03D(C0URSE (OWN ) ) ; 

/♦when  not  have  fired,  the  following  makes  the  tallistic 
computations*/ 

if  "  fired  then 
begin; 

t_of  =  2.0  *  vm  *  sind(alt)  /  gj 
vr  =  vm  *  cosd(alt); 

R  »  VR  *  T  of; 
X  AIM (OWN)  =  R  *  SIND(AZ); 
Y'AIM(OWN)  =  R  *  COSD(AZ); 
X^GUN  =  0.0; 
T_GUN  *  0.0; 

VX  ROU'ND  =  VR  *  SIND(AZ)  J 
VT'ROUND  =  VR  *  COSD(AZ); 
T  =  T  of; 
end  /*if*7; 
end  idle; 
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APPENDIX   D 
REAL  TIME  EXECUTIVE  MODULE  LISTINGS 


A.  ABBITEH.A86 


Prog 

Date 

Writt 

For 

Advis 

Purpo 

routi 

progr 

inter 

simul 

reque 

state 

for 

proce 


Name 

en   by 

or 

se 

nes  used 

ammable 

rupts,  a 

ation 

sts   , 

of  int 
the  pro 
ss  given 


ARBITER .A86 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  program  contains  all  the  assembly 

by  the  simulation  system.  It  initializes  all 

hardware  components,   responds  to  the   timing 

nd  increment  the  FOURTHEVC  used  throughout  the 

model   program.    Upon  receiving   interrupt 

it  performs  process  switching  by  storing   the 


errupted  process  in  the  stack  area  allocated 
cesses   and   by  restoring  the  highest   ready 
by  SCHEDULER 


;globals 


DGROUP 

GROUP    FOURTHEVC, CURRENTPROC 

FOURTHEVC 

DSEG     COMMON 

FOURTHEVC 1  DW      0 

CURRENTPROC  DSEG  COMMON 

CURRENTPROC1  DB    4 

CSEG 

EXTRN 

SCHEDULE: FAR 

EXTRN 

PI:  FAR 

EXTRN 

P2.-FAR 

EXTRN 

P3:FAR 

EXTRN 

P4:FAR 

PUBLIC 

ARBITER 

PUBLIC 

STORESTATUS 

PUBLIC 

RINGBELL 

PUBLIC 

XEYEOARD 

PUBLIC 

ATOD 

PUBLIC 

SUSPEND 

PUBLIC 

RESUME 
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; EQUATES 


INT1 

INT3 

PIC1 

PIC2 

ICW1 

ICW2 

ICW4 

MASK1 

EOI 

CNTR1 

CNTH2 

PORTC 

COUNT 

CNTRLO 

CNTREI 

READWR 

RXRDY 

TXRDY 

PORTIO 

PORTST 

SEGCONV 

OFFCONV 

STACKSI 

LF 

CR 

BEL 

FS 

ESC 

FF 

CAN 

FALSE 

TRUE 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 
EQU 
EQU 

EQU 

EQU 

EQU 
EQU 

EQU 

EQU 

EQU 
ZE  EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


84H 

8CE 

0C0H 

0C2H 

13H 

20H 

0DH 

0FDH 

20H 

50H 

60E 

0D6E 

0D2H 

00H 

96H 

37H 

02E 

01E 

0D8H 

0DAE 

0D000E 

0F700E 

100E 

0AH 

0DE 

07H 

ICE 

1BH 

0CE 

18H 

0 

NOT  FALSE 


INTR1  JUMP  ADDR. 
INTR2   JUMP  ADDRESS 
PIC  COMMAND 

COMMAND 

COMMAND 

COMMAND 

COMMAND 


PIC 

PIC 

PIC 

PIC 

PIC  MASK  BYTE 

END-OF-INTERRUPT 

PIT  MODE  CONTROL 


OUTPUT 

OUTPUT 

WORD1 

W0RD2 

WORD4 


PORT1 
P0RT2 


BYTE 
BYTE 


PIT  CONTROL 
PIT  COUNT  # 
PIT  COUNT  # 
PIT  COUNT  # 


PORT 

OUTPUT  PORT 
LO  BYTE 
HI  BYTE 


jusart  status  mask(read) 
jusart  status  mask(write) 
jusart  i/o  port 
jusart  status  port 
;a/d  convtr  port  segment 
;a/d  convtr  port  offset 


AREITER: 


PUSB 

CLI 

MOV 

MOV 

MOV 

MOV 

INC 

INC 

MOV 

POP 

MOV 

MOV 

ADD 


DS 


;disable  intr's 

;set  SEGREG  TO  0 


AX,0 
DS.AX 

bx  inti 

word  ptr  [ex] , offset  proc0  j inti  jmp  address 

BX 

BX 

WORD   PTR    [BX] ,CS 

DS 

BXtOFFSET    STACKTBL+STACKSIZE-2 

CS:  [BX]  ,CS 

BX,STACKSIZE 
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PROC0 


MOV 

CS:  [BX] ,CS 

ADD 

BX,STACKSIZE 

MOV 

CS:  [BX] ,GS 

ADD 

BX,STACKSIZE 

MOV 

CS:[BX] fCS 

CLI 

MOV 

AL,ICW1 

OUT 

PIC1.AL 

MOV 

AL,ICW2 

OUT 

PIC2.AL 

MOV 

AL.ICW4 

OUT 

PIC2,AL 

STI 

MOV 

ALtMASKl 

OUT 

PIC2.AL 

MOV 

AL,CNTR1 

OUT 

PORTC  ,AL 

MOV 

AL,CNTRLO 

OUT 

COUNT, AL 

MOV 

AL.CNTR2 

OUT 

PORTC, AL 

MOV 

AL.CNTREI 

OUT 

COUNT, AL 

MOV 

AL,READWR 

OUT 

PORTST,AL 

MOV 

AX,CS 

MOV 

SS,AX 

MOV 

BP,3*STACKSIZE 

MOV 

SP,STACKTBL  [BP] 

JMP 

P4 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

MOV 

ALfCNTR2 

OUT 

PORTC  ,AL 

MOV 

AL.CNTRHI 

OUT 

COUNT ,AL 

MOV 

AL,EOI 

OUT 

PIC1.1L 

ADD 

SP,6 

POP 

BX 

POP 

AX 

POP 

CX 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

JINIT.  PIC  TO 

J  EDGE-TRIG.,  SINGLE  PIC 

J  INT1  ADDR  IS  04H 

J  NOT  F.  NESTED,  NORM.  EOI 


JONLY  INT1  IS  ALLOWED 
JINIT.  PIT 

J  SELECT  MODE  0  ,CNTR  1 
J  CLK  FREQ.  IS  153.6  KHZ 
JCOUNT-DOWN  VALUE  9600H 
J  WHICH  GIVES  AN  INTR  AT 


EVERY  FORTH  OF  A  SEC 


JSET  STACK  SEG.  TO  CODE 


JRESET  COUNTER 
JRESET  THE  CNTR. 

JRESET  PIC 

JSP-MNTERRUPTED  IP 

JBX->  IP 
JAX->  CS 

JSP-MNTERRUPTED  IP 
JPUSH  CS 

J  PUSH  IP 
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SUB 

SP.6 

;sp->pusi 

IED 

POP 

CX 

POP 

BX 

JRESTORE 

BX 

POP 

AX 

JRESTORE 

AX 

INC 

FOURTEEVC1 

JMP 

STORESTATUS1 

STOREST 

DEC 

SP 

DEC 

SP 

PUSH 

AX 

ADD 

SP,4 

POP 

AX 

;ax->int] 

CRR 

PUSH 

CS 

PUSH 

AX 

DEC 

SP 

DEC 

SP 

POP 

AX 

JRESTORE 

AX 

PUSHF 

CLI 

STORES 

TATUS1: 

PUSH  AX 

!  PUSH  BX  !  PUSH  CX 

1  PUSH  DX 

PUSH  BP 

!  PUSH  SI  !  PUSE  DI  1 

!  PUSH  ES 

CALL 

SCHEDULE 

MOV 

NEWPROC.AL 

MOV 

AL.CURRENTPROC1 

CMP 

ALfl 

JNZ 

OUT1 

MOV 

BP.l 

JMP 

OUT4 

OUT1: 

CMP 
JNZ 
MOV 
JMP 

AL,2 

0UT2 

BP,STACKSIZE+1 

0UT4 

OUT  2: 

CMP 
JNZ 
MOV 
JMP 

AL,3 

0UT3 

BP,2*STACKSIZE+1 

0UT4 

OUT  3: 

CMP 
JNZ 
MOV 
JMP 

AL,4 

0UT5 

BP,3*STACKSIZE+1 

OUT4 

OUT4: 

ADD 
CMP 
JNA 
DEC 
MOV 
JMP 

BP, OFFSET  STACKTBL 

SP.BP 

0UT6 

BP 

[BP]  ,SP 
LOADPROC 

0UT5: 

ADD 
MOV 
MOV 
JMP 

AL,30H 

0UT5AL,AL 

DX, OFFSET  0UT5MESS 

ERRORMESS 
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0UT6: 


LOADPROC 


ADD 
MOV 
MOV 
JMP 

MOV 
CMP 
JNZ 
MOV 
JMP 
CMP 
JNZ 
MOV 
JMP 
CMP 
JNZ 
MOV 
JMP 
CMP 
JNZ 
MOV 
JMP 
ADD 
MOV 
MOV 
JMP 

MOV 

MOV 

POP 

POP 

POPF 

STI 

RETF 


THIS   ROUTINE 

MESSAGES 
ERR OR MESS: 

MOV 
INT 
MOV 
MOV 
INT 
RET 


LOUT1 


L0UT2: 


L0UT3: 


LOUT4: 


RETURNPT 


AL,30H 

0UT6AL,AL 

DX, OFFSET  0UT6MESS 

ERRORMESS 

AL.NEWPROC 

AL.l 

LOUT1 

BP.0 

RETURNPT 

ALt2 

L0UT2 

BP,STACKSIZE 

RETURNPT 

Axi  f  <u 

LOUT3 

BP,2*STACKSIZE 

RETURNPT 

AL,4 

LOUT4 

BP,3*STACKSIZE 

RETURNPT 

AL,30H 

LOUT4AL,AL 

DX, OFFSET  L0UT4MESS 

ERRORMESS 

CURRENTPROCltAL 

SP,STACKTBL  [BP] 

ES  !  POP  DI  !  POP  SI  !  POP  BP 

DX  !  FOP  CX  !  POP  BX  !  POP  AX 


MAKES   A   SYSYTEM  CALL   TO   PUT   OUT   ERROR 


CL.9 

224 

CLt0 

DItl 

224 
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;the  stack  areas  and  variable  definitions 


STACKTBL: 

DW 

OFFSET  STACKTBL+STACKSIZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  PI 

RS 

2 

DW 

OFFSET  STACKTBL+2*STACKSIZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  P2 

RS 

2 

DW 

OFFSET  STACKTBL+3*STACKSIZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  P3 

RS 

2 

DW 

OFFSET  STACKTBL+4*STACKSIZE-22 

RS 

STACKSIZE-8 

DW 

FALSE 

DW 

OFFSET  P4 

RS 

2 

NEWPROC 

DB 

0 

0UT5MESS 

DB 

FSfESCfFF,CAN 

DB 

'RETURN  FROM  0UT5.  AN  UNKNOWN  CURRENT  PROCEDURE:' 

0UT5AL 

DB 

0,T,0 

0UT6MESS 

DB 

FS,ESC,FF,CAN 

DB 

'RETURN  FROM  0UT6 .  STACK  OVERFLOW  FOR  THE  PROC .  : ' 

0UT5AL 

DB 

0.T.0 

LOUT4MESS 

DB 

FS,ESC,FF,CAN 

DB 

'RETURN  FROM  LOUT4.  AN  UNKNOWN  NEW  FROCEDURE:' 

L0UT4AL 

DB 

0,'$',0 

END 
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B.  AWAIT. PLI 

/* 

Prog  Name 

Date 

Written 

For 

Advisor 

Purpose 

the   threshold 


by 


AWAIT. PLI 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 
This  synchronization  primitive  checks 
value  for  the  calling  process  ty   comparing 
the  corresponding   threshold   value  with  FOURTHEVC   and 
returns   the  control  either  to  the  calling  process,   if  its 
threshold  value  is  equal  to  and  greater  than  FOURTHEVC,  or 
else  transfers  the  control  to  ARBITER. A86 
*/ 


await:    procedure( i ) J 

del     threshold(0:2)  fixed  cin(15)  external, 
storestatus  entry, 
fourthevc  fixed  Mn(15)  external  , 
i  fixed  Mn(7); 
if  (f ourthevc>=threshold(i-l) )  then  return; 
else  call  storestatus? 
end  await; 
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C.  SCHEDULE. PLI 


/* 

Frog   Naire 

Date 

Written  by 

For 

Advisor 

Purpose 

compares 

processes 

and   returns 

greater  than 


SCHEDULE. PLI 
December  82 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This    synchronization   primitive 

the    threshold  values   corresponding  to    the 

Fl  through  P3 ,   beginning  from  PI,   to   FOURTHEVC 

the  name  of  the  first  one  which  is  equal  to  or 

If  non  of  the  processes  meet  this 


that  value. 


conditions 
*/ 


then  P4  is  returned. 


schedule: 
del 


do  i=0 

end; 
return 
end  schedule; 


procedure  returns  (fixed  bin(7))J 
threshold(0:2)  fixed  binU5)  external, 
fourthevc  fixed  bin(15)  external, 
i  fixed  bin(7); 
to  2J 
if  (f ourthevc>=threshold( i) )  then  return  (i+1) 

(4); 
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D.  THRESH. PLI 


/* 

Prog   Name  :  THRESH. PLI 

Date  :  December  83 

Written  by  :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This   synchronization   primitive 

receives   a  pointer  to  the  calling  process  and   increments 

the  corresponding  threshold  value  by  an  assigned  amount 

*/ 


THRESH:    PROC ( i ) 


DCL   THRESHOLD(0:2)FIXED    BIN(15) 
i    FIXED   BIN (7); 


EXTERNAL 


IF  (i=l) 

THEN 

IF  (i=2) 

THEN 

IF  (i=3) 

THEN 

return; 

;nd  THRESH 

i 

r 

threshold(0)=threshold(0)  +  i; 

THRESHOLD(l)=TKRESHOLD(l)    +   4J 
THRESHOLDS  )  THRESHOLD  (2)  +4; 
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E.  Pl.PLI 


/* 

Prog  Name         :  Pl.PLI 

Date  :  December  83 

Written   hy        :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This   process   is 

infinitive  loop.   Once  entered,  it  first 

to   see   if  FOURTHEVC   is  equal  to   or 

threshold   value.   If  it  is,   then  the  control  proceeds 

call   TACTICAL. FLI.   The   last  call   in   the  loop   is 

THRESH. PLI   to  increment  its  threshold  value.   In  the 


"basically  an 
call  AWAIT. PLI 
greater   than 


its 

to 

to 

next 


iteration,  the 
threshold  value 
*/ 


control  will 
is  greater  than 


not   come 
FORTHEVC. 


tack   since   its 


PI:  procedure; 

DCL  AWAIT  ENTRY  (FIXED  BIN;?)), 
THRESH  ENTRY  (FIXED  3IN(7)) 
A  FIXED  BIN(7), 
TACTICAL  ENTRY; 


a-i; 

DO  WHILE  Cl'B); 

CALL  AWAIT 
CALL 
CALL 
END  /*DO*/f 
END  pi; 


(i); 
tactical; 

THRESH  (1); 


85 


F.  P2.PLI 


/* 

Pro^ 

Date 

Written 

For 

Advisor 

Purpose 

cal   to 

call  is 

V 


Name         :  P2.PLI 

December  83 
by        :  M.  Xadri  Ozyurt 
Thesis 

Professor  Kodres 
The  purpose  of  this  process  is 
that  of  Pl.PLI  with  the  exception  that  the 
to  DISPLAY. PLI 


idecti- 
second 


P2:  procedure; 

DCL  AWAIT  ENTRY  (FIXED  BIN(7)). 
THRESH  ENTRY  (FIXED  BIN(7){ 
A  FIXED  BIN£7)f 
DISPLAY  ENTRY; 


A  =2J 

DO  WHILE  Cl'B); 

CALL  AWAIT  (2); 

CALL  display; 

CALL  THRESH  (2); 
END  /*DO*/J 
END  P2? 
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G.  P3.PLI 


/* 
Pr 
Da 
Wr 
Fo 
Ad 
Pu 
sa 
to 
*/ 


Name 


by 


og 
te 

itten 
r 

visor 
rpose 

ire  as  Pl.PLI 
STATUS. PLI 


with 


P3.PLI 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

The   purpose  of  this  process  is   the 

the  exception  that  the  second  call   is 


P3:  procedure; 

DCL  AWAIT  ENTRY  (FIXED  BIN(7))f 
THRESH  ENTRY  (FIXED  BIN(7)), 
A  FIXED  BIN(7) t 
STATUS  entry; 

A=3; 

DO  WHILE  ('I'B)J 

CALL  AWAIT  (3) J 

CALL  status; 

CALL  THRESH  (3); 
END  /*D0*/; 
END  P3; 
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H.  P4.FLI 

/* 

Prog  Name 

Date 

Written 

For 

Advisor 

Purpose 

in  which 

until  an 

*/ 

P4.PLI 

December  83 
by        :  M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  process  is  an  infinitive  loop 
there  is  only  one  call  to  IDLE.PLI  repeaditively 
interrupt  comes  along. 


P4:  procedure; 

DCL  AWAIT  ENTRY  (FIXED  EIN(7))f 
THRESH  ENTRY  (FIXED  BIN(7)j 
A  FIXED  BIN(7), 
IDLE  entry; 

a=4; 

DO  WHILE  ('l'B)i 

CALL  idle; 
END  /*DO*/J 
END  P4J 
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APPENDIX   E 
MISCELLANEOUS  ASSEMBLY  ROUTINES 


A.  KEYBOARD. A86 


Prog  Name 
Date 
Written 
For 

Advisor 
Purpose 
parameter 
interface 
keyboard , 
formal  pa 
it   puts 
The  reaso 
command . 
of   ARBIT 


KEYBOARD. A66 
December  83 
by       :  M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This   program  receives  a  formal 
,   KEY,   reads   the   status   of   the   serial   I/O 
chip.   If  a  character  has  been  received  from  the 
it   reads  this  character  and  places  it   to   the 
rameter.   If  there  is  not  a  character  available 

a  ascii  equivalent  of  zero  into   the  parameter, 
n  for  that  is  that  zero  is  not  used  as  a  keyboard 
The   variables  used  here  are  defined  in  the  body 
ER.A86 


KEYBOARD: 

PUSH! 

CLI 

PUSH 

AX 

IN 

AL.FORTST 

CMP 

AL.RXRDY 

JZ 

KEYBOARD1 

IN 

AL.PORTIO 

AND 

AL,7FH 

JMP 

KEYB0ARD2 

KEYBOARD1: 

MOV 

ALf30H 

KEYB0ARD2: 

MOV 

bx.Cbx] 

MOV 

[BX]  ,AL 

POP 

AX 

POPE 

RET 
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B.  AT0D.A86 


Name 


J  Prog 

JEate 

Written  "by 

JFor 

JAdvisor 

JPurpose 

Jit  reads 


AT0D.A86 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  program  receives  two  parameters 
the  output  of  the  A/D  converter  specified  by  the 
Jsecond  parameter  and  places  it  into  the  first  parameter. 
JThe  variables  used  here  are  defined  in  ARBITER. A85 


ATOD: 


PUSH! 

CLI 

PUSH 

SI 

PUSH 

AX 

PUSH 

EX 

PUSH 

BX 

PUSH 

DS 

MOV 

BX,  [BX] 

MOV  " 

AHt0 

MOV 

AL,  [BX] 

MOV 

SI, AX 

MOV 

AX,SEGCONV 

MOV 

DS,AX 

MOV 

BX,OFECONV 

MOV 

AL,[BX+SI] 

POP 

DS 

POP 

BX 

MOV 

BX,2[BX] 

MOV 

[BX] ,AL 

POP 

BX 

POP 

AX 

POP 

SI 

POP! 

RET 

;bx=.argument(i) 


;read  a/d  port 
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C.  RINGBELL.A86 


JProg   Name 

JDate 

?Written  by 

JFor 

J  Advisor 

JPurpose 

; the  video  terminal 

;the  tody  of  ARBITER. A86. 


RINGBELL.A86 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  program  sends 

The  variables  used 


a  hell  character  to 
here  are  defined  in 


RINGBELL: 


PUSHF 

CLI 

PUSH 

CALL 

MOV 

OUT 

POP 

POPE 

RET 


AX 

WAIT 

AL,BEL 

FORTIO.AL 

AX 
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D.  WAIT.A86 

>Prog  Name 

JDate 

JWritten  by 

iFor 

JAdvisor 

JPurpose 

Jcrf      the   serial    I/O 

;  ready  to 


WAIT.A86 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  program  program  reads  the  status 
chip  and  waits  until  the  transmitter  is 


send  characters. 


WAIT: 

PUSH 

AX 

WAIT1: 

IN 

AL,0DEH 

AND 

AL.l 

JZ 

WAIT1 

POP 

AX 

RET 

• 
> 

• 
1 

;get  status 
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E. SUSPEND. A86 

>Prog   Name 

JDate 

JWritten  by 

JFor 

; Advisor 

JPurpose 

;by  reseting  the 


SUSPEND. A86 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  program  stops  the  real  time  clock 
interrupt  hit  of  the  PS'd. 


SUSPEND: 


CLI 
RET 
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F.  RESUME. A86 

JPrcg   Name  :  RESUME. A86 

JDate  :    December  83 

JWritten   by  :  M.  Kadri  Ozyurt 

JFor  :  Thesis 

JAdvisor  :  Professor  Kodres 

JPurpose  :  This  program  starts  the  real  time  clock 

»fcy   reseting  the  interrupt  hit  of  the  PSW.   It  then   reset 

;the  counter  to  zero. 


RESUME: 

PUSH 

AX 

MOV 

AL,CNTR2 

OUT 

PORTCAL 

MOV 

AL,CNTRHI 

OUT 

COUNT, AL 

MOV 

AL.EOI 

OUT 

PIC1.AL 

POP 

AX 

STI 

RET 

JRESET  COUNTER 


JRESET  PIC 
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APPENDIX   | 
DYNAMIC  DEBUGGING  MODULE  LISTINGS 


A.  LOCALS  AID 


/* 

Prog 

Date 

Writ 

For 

Advi; 

Purp< 

tions  of  the  variables  used  by  the  dynamic  debugging  module 

*/ 


Name 
ten  by 

sor 
iose 


LOCALS. AID 

December  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  %include  file 


contains   the  declara- 


DCL 

BREAKS (0:9)  LABEL, 

STOPS(0:9)  BIT(l)  EXTERNAL, 

(C0DE1,C0DE2, VALUE, H)  FIXED  BIN(15), 

BREAKPT  FIXED  BIN(15)  EXTERNAL, 

PUTYARS  ENTRY, 

REENTRY  ENTRY, 

BREAKPTS  ENTRY, 

PROMPTUSER  ENTRY  (FIXED  BIN(7)), 

STORESTATUS  ENTRY, 

TACTICAL  ENTRY, 

DISPLAY  ENTRY, 

IDLE  ENTRY, 

STATUS  ENTRY, 

CHANGE7A  ENTRY  (FIXED  BIN ( 15 ), FIXED  BIN(15))J 
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B.    ERRHAND.AID 


Na 


/* 

Prog 
Date 
Written 
For 

Advisor 
Purpose 
dif feren 
intercep 
and  the 
that  sho 
conditio 
At  the  e 
which  is 
is   prot 
if  state 
*/ 


rre 


t  types  of 
ting  any  r 
control  is 
ws  which  o 
n  body  is 
xit  point 

the  dynam 
ected  duri 
ment  which 


ERRHAND.AID 

December  63 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  %include  file  contains  six 
PL/I  ON  condtion  bodies.  Upon 
aised  error  condition  is  displayed 

transfered  to  PROMPTUSER  with  a  number 
reakpcint  has  been  past.  Then  the  ON 
exited  with  a  non-local  &otc  statement, 
the  control  is  transfered  to  REENTRY 
ic  debugging  tool.  This  call  to  REENTRY 
ng  the  course  of  normal  operation  with  an 
tests  the  value  of  ERRORON. 


stops(0 
stops(l 
stops(2 
stops(3 
stops(4 
stops(5 
stops(6 
stops(? 
stops(8 
stops(9 
on  error 
begin; 


'false; 
'false; 
=false; 
'false; 
=false; 
'false; 
=false; 
'false; 
'false; 
'false; 


put  list('~Z'); 

put  skip  list( 'Error  #') ; 


/*clear  screen*/ 


/*this  statement  gets  the  code  of 
codel=oncode( ) ; 


the  error  condition*/ 


/*this  call  prompts  the  user  with  the  #  of  breakpoints  past 
and  asks  if  the  user  wants  to  enter  the  dynamic  debugging 
environment*/ 

call  promptuser(codel) ; 

if  (key='y')  !  (key='Y')  then  goto 

else  if  codel<=127  then  doj 

put  skip  list ('The  program 
stop; 
end  /*if*/; 


errorexit; 

will  be  abandoned'); 
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end  /*error*/; 

on  f ixedoverf low 
hegin; 

put  list('~Z'); 

put  skip  list( 'Fixedoverflow  #'); 

codel=oncode( ) » 

call  promptuser (codel ) ; 

if  (key='y')  !  (key='Y')  then  goto  errorexit; 

else  if  codel<=127  then  do; 

put  skip  list(  The  program  will  he  ahandoned'); 

stop; 
end  /*if*/J 

end  /*f ixedoverflow*/; 

on  overflow 
"begin; 

put  iist('~z'); 

put  skip  list( 'Overflow  #'); 

codel=oncode( ) ; 

call  promptuser(codel ) ; 

if  (key='y')  !  (key='Y')  then  goto  errorexit; 

else  if  codel<=127  then  do; 

put  skip  list('The  program  will  he  ahandoned'); 

stop? 
end  /*if*/; 

end  /*overf low*/; 

on  underflow 
hegin? 

put  list('~Z'); 

put  skip  list( 'Underflow  #'); 

codel=oncode( ) ; 

call  promptuser(codel ) ; 

if  (key='y')  !  (key='Y')  then  goto  errorexit; 

else  if  codel<=127  then  do; 

put  skip  list ('The  program  will  he  ahandoned'); 

stop; 
end  /*ifV; 

end  /*underf low*/; 

on  zerodivide 
hegin; 
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put  list('~Z')J 

put  skip  list( 'Zerodivide  #'); 

codel=oncode( ) » 

call  promptuser (codel ) ; 

if  (key='y')  !  (key='Y')  then  goto 

else  if  codel<=127  then  do; 

put  skip  list('The  program 

stop; 
end  /*if*/J 


errorexi t> 

will  he  abandoned'); 


end  /*zerodivide*/J 

errorexit : 

if  erroron  then  do* 

call  reentry( )» 
end  /*ifV?  ' 
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D.  REENTRY. PLI 


/* 

Prog 

Date 

Written 

For 

Advisor 

Purpose 


Name        :  REENTRY. PLI 
December  83 
by      :  M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  routine  is  the  "workhorse"  of 
the  dynamic  debugging  environment.  It  calls   PUTVARS  if 
the  user  wants  to  see  the  external  variables .Then  it 

if  the  user  wants  to  change  any  variable 
until  no  changes  are  wanted. It  then  transfers 
the  breakpoint  the  user  desires. 


calls  CHANGEVA 
with  in  a  loop 
the  control  to 
*/ 


reentryrproc  external; 


/* 


del 


^include    'const. inp'; 
%include    ^globals  .  in]o ' ; 
%include    'locals. aid    ; 

put   skip  list('You  have  entered  the  interactive  debugging  ' 

t  'environment . ') J 
put   skip   list('You  will   be  asked  questions  about   the  ', 

'control  of  program  flow'); 
reentryl : 
put   skip   list('Do  you  want  a  listing  of   all   variables  ', 

'(Y/N)?'); 
get  list(key); 

if  (key='Y')  !  (key='y')  then  call  putvarsO; 
put   skip   list('Do   you  want  to  change  the  value   of   any  ', 

'variable(Y/N)?')J 
get  list  (key); 

do  while   ("((key  -  'N')  !  (key='n')))J 
if  (key  =  'Y')  !  (key='y')  then  do? 
put   skip   list ('Enter  the  number  and  the  new  value  ', 

'  (-32768<=value<=+32,767)  of  the  veriable  you  want  to'); 
put   skip   list('   change   in   integers   seperated   by   a  ', 

'comma . ' ) ; 
on  error  begin? 

put  list  ( '***  bad  entry,  try  again'); 
goto  reentry2J 
end  /*error*/; 
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on  f ixedoverf low  "begin? 

put  list('***  too  large,  try  again'); 
go  to  reentry2; 
end  /*f ixedoverflow*/; 
reentry2: 

put  skip  listO'); 
get  list  (codel , value) ; 
revert  error? 
revert  f ixedoverf low? 
if  codel>maxvars  then 

put  list( 'invalid  variable  number'); 
else 

call  changeva(codel , value) ; 
/*end  if*/ 

put  skip  listCDo  you  want  a  listing  again  ,Y/N)?'); 
get  list(key); 

if  (key='Y')!  (key='y')  then  call  putvarsO; 
put   skip   list ('Do  you  want  to  change  another  variable  ', 

'(t/n)?'); 

end  /*do*/; 
else 
put  list('***  bad  entry,  try  again'); 
/*end  if*/ 
get  list(key); 
end/*do*/J 
put  skip  list( 'Which  breakpoint  do  you  want  to  transfer  the  ', 

'control  (0  thru  9,  foolowed  by  return)?'); 
get  list(key); 

do  while  ( (rank(key)<48)  !  ( rank(key)>57 ) ) ; 
put  listf'***  bad  entry,  try  again'); 
put  skip  listO'); 
get  list(key); 
end/*do*/; 
codel=rank(key)-48; 
breakpt=codelJ 

put   skip   list( 'Enter  the  breakpoint  you  want  to   stop   (0  ', 
'thru  9)  or  any  non-numeral  character  if  you  do  not  want   to 

stop(fol.  RET'); 
get  list(key); 
if  ((rank(key)<48M  ( rank  (key )  >57 ) )  then  do; 

put   skip   list('The  program  will  execute  beginning   from  ', 

'the  breakpoint '  ,codel ) ; 
erroron=falseJ 
end  /*do*/j 
else 

do; 
code2=rank(key)-48J 
stops (code2)=true? 

put   skip   list('The  program  will   execute   between  the  ', 

'breakpts ' ,codel, '  and  ',code2); 
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end  /*if*/» 

put  skip  listCls  that  what  you  want ( Y/N  }?  ' ); 

get  list(key); 

if  (key='N')  !  (key='n')  then  do; 

put  skip  list('Do  you  want  another  run(Y/N)?')J 

get  list  (key); 

if    (key='Y')    !    (key='y')    then  goto   reentryi; 
end    /*if*/j 

end   reentry? 
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E.    PUTVARS.PLI 


/* 

Frog   Name 

Date 

Written  toy 

For 

Advisor 

Purpose 

variatoles  out  with 

*/ 


PUTVARS.PLI 

Decemtoer  83 

M.  Kadri  Ozyurt 

Thesis 

Professor  Kodres 

This  routine  puts  selected 

PL/I  put  edit  statement. 


external 


putvars:proc  external; 

%replace  max_ships  toy  2, 
true  toy  'l'to, 
false  toy  '0't; 
/♦del*/ 

^include  'glotoals . inp' ; 


i=0; 
put  skip 


list('The  listing  of  all  comm 


put  skip(2) 
put  skip  ed 

'(3)hours 
put  skip  ed 

'(8)own=' 
put  skip  ed 

put  skip  ed 
put  skip(2) 
put  skip(2) 
put  skip  ed 


put  skip(2) 
put  skip  ed 
'(21}vx_tar 
£ut  skip  ed 
(25)vx_rou 
put  skip  ed 
'(29)ax=',a 
put  skip  ed 


listCFix 
it('(l)sec 
=  ', hours, ' 
it('(6)t  o 
,own, '(9lk 
it('(ll)t= 
curre 
it('(14)fo 

listCFix 

listCBoo 

it('(15)en 

'(17)fi 

(a,to(l), 

listCFix 
it('(19)vx 
get=',vx  t 
itC(23)vx 
nd=',vx  ro 
it('(27}vr 
x,'(30)tox= 
it('(31)cx 


ed  toinary  values: 
onds=', seconds , '( 
(4)wake  ptr=',wak 
f='f t.of ,'(7)targ 
nown=' , known, ' (10 
',t,  '(12)t_prime= 
ntproc) (r(f ormatl 
urthevc=' , four the 
ed  decimal  values 
lean  values:'); 
gaged=' , engaged, ' 
red=', fired,  (18) 
col(20)  ,a,to(l) ,co 
ed  decimal  values 
_own=' ,vx_own, ' (2 
arget , ' (22)vy  tar 
..rel  =  ',vx_rel^'(2 
und  ,  '(26  )vy_ round 
=',vr,'(28)alpha= 
',tox)(r(format2)) 
=  ',cx  ,' (32 )ay=', a 


on  variatoles  is  as  ', 
'follows:'); 

'); 

2 )minutes=', minutes, 
e_ptr,'(5)I=',i)(r if ormatl)); 
et=', target, 
)J=',j)(r(formatl)); 
',t_prime,'(13)currentproc=', 

));" 

vc)(a,f(5)); 

:'); 

(16)magnif ied=' .magnified , 
error on=', error on) 
l(41),a,t(l),col(58),a,to(l)); 

:'); 

0) vy_  own=' ,vy_own, 
get=',vy_ target ) (r (forma t2) ) ; 
4) vy_rel=' ,vy_rel , 
=',vy_ round) (r(f ormat2) ); 
', alpha, 

* 

y,'(33)ty=',toy,'(34)cy=',cy) 

(r(format2))J 
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put  skip  edit('(35)ax_sum=',ax_sum,  '(36)bx_sum=' ,bx_sum, 

'(37) ex  sum=',cx~sum)  vr(fcrmlt3) ); 
put  skip  edit('(38)ay_sum=',ay_sum,  (39)by_sum=' ,by_sum, 

'(40)cy  sum  =  ',cx""sum)  (r( forma t3) ); 
put  skip  edit('(41)x  at5=',x  at5,'(42)y  at5=',y  at5 , 

'(43)r=',r)(r(?ormat3));  ~ 
put  skip  edit('(44)dx  dt  at5=',dx  dt  at5,'(45)dy  dt_at5=', 

dy  dt  at5,'(46)dr  dt  at5=',dr  dt  at5) (r(f ormat3) ) ; 
put  skip(2)  listT 'Character  values:'); 
put  skip  edit('(47)key=',key)(a(8),a(l)); 
put  skip(2)list('Arrays:')J 
put  skip  edit ( '  (48 ) threshold (0 )  =  '  .threshold (0 ) , ' (49) threshold ( 1 )  =  ' , 

threshold (1),'  (50) threshold (2 )=', threshold(2) ) 
(a,f(5),col(26),a,f(5),col(51),a,f(5)); 
put  skip(2)  listCData  structures:'); 
put  skip  list('shipU):'); 
put  skip  edit( '(51)course=',course(l) , '(52)speed=',speed(l) , 

'(53)azimuth=',azimuth(l),'(54)range=',range(l)) (r(f ormat4) ) ; 
put  skip  edit('(55)x=',x(l),'(56)y=',y(l),'(57)x  aim=',x  aim(l), 

' (58 )y_aim=',y_aim(l))(r (formats))! 
put  skip  edit ( '(59)count=',count(l) , '(60)number=' ,number(l) , 
'  (61  )ptr=',ptr  (!),'( 62)  link_sbip=',link_ship(D) 

(r(format6) ) ; 
put  skip  list('Shlp(2):'); 
put  skip  edit( '(63)course=',course(2), '(64)speed  =  ',speed(2) , 

'(65)azimuth=',azimuth(2) , '(66)range=', range (2) ) (r(f ormat4) ) ; 
put  skip  edit('(67)x=',x(2),'(68)y=',y(2),'(69)x  aim=' ,x_aim(2 ) , 

'(70)y  aim='.y  aim(2) ) (r(f ormat5) ) ; 
put  skip  edit( '(71)count  =  ' ,count(2) , '(72)number=',number(2) , 
'(73)ptr=',ptr(2),'(74)link_ship=',link_ship(2)) 

(r(format6))j 
put  skip  list ('Sun:'); 
put  skip  edit('(75)az=',az,'(76)alt=',alt,'(77)x_gun=',x_gun, 

'(78)y_gun=' ,y_gun) (r (formats) ); 
put  skip  list('Vake(ptr(2)):'); 

put  skip  edit('(79)x_vake=',x  wake(ptr(2 ) ) , '(80)y_vake=' , 
y_wake(ptr(2))f '(81) link  vake=' ,link_vake(ptr (2) ) ) 
(a,f(7,l),col(20),a,f (7  ,1 )  ,col(39) ,a,f (1) ) ; 
put  skip  edit  ( '(82)dt=' ,dt) (a,f (4,2 })  J 
formatl: format (a, f (2) ,col(16) ,a,f (2) , col (31) ta ,f (2) , col (44) ,a ,f (2)  ,col (59) , 

a,f(5)); 
f ormat2: format (a, f (4,1 ) ,col(19) ,a, f(4,l) ,col(37) ,a,f (4,1) ,col (58  )  ,a  , 

f(4,D); 
format3:format(a,f (4,1) ,col(24) ,a,f (4,1) ,col(47) ,a,f (4,1) ) ; 
forma t4:f ormat(a,f (4,1) ,col(19) ,a,f(4,l) , col (35) ,a,f (4,1) , col (54)  ,a, 

f (7,1)); 
forma t5:f ormat(a,f (7,1) f col (19) ,a,f (7,1) , col (35) ,a,f (7,1) , col (54) ,a, 

f (7,1)); 

format6:format(a,f (1 ) ,col(19) ,a,f (2) ,col(35) ,a ,f (2), col (54) ,a,f (2)); 
end  putvars; 
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P.  CHANGEVA.PLI 


/* 

Prog  Name 

Date 

Written   by 

For 

Advisor 

Purpose 

external  variable 

*/ 


CHANGEVA.PLI 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 
This  routine  changes  a  selected 
specified  by  the  parameter  passed 


change va  :proc(codel , value)  external; 


del 

(codel , value) 


fixed  bin (15); 


^include  'const. inp'; 
^include  'globals.inp'; 

if  codel=l  then  seconds=binary( value 

if  codel=2  then  minutes=binary( value 

if  codel=3  then  hours=binary Rvalue, 7 

if  codel=4  then  wake_ptr=binary (valu 

if  ccdel=5  then  i=biriary  (value, 15  ) ; 

if  codel=6  then  t_of=binary( value ,7) 

if  codel=7  then  target=binary(value, 

if  codel=8  then  own=binary (value,7) ; 

if  codel=9  then  knovn=binary ( value,7 

if  codel=10  then  J=binary( value ,15) J 

if  codel=ll  then  t=binary (value, 7 ) ; 

if  codel=12  then  t_prime=binary(valu 

if  codel=13  then  currentproc=binary( 

if  codel=14  then  f curthevc=binary (va 

if  codel=15  then  engaged=bit (value ,1 

if  codel=16  then  magnif ied=bit (value 

if  codel=17  then  f ired=bi t (value ,1) ; 

if  codel=18  then  erroron=bit (value, 1 

if  codel=19  then  vx_own=decimal( valu 

if  codel=20  then  vy3own=decimal (valu 

if  codel=21  then  vx_target=decimal( v 

if  codel=22  then  vy_ target=decimal(v 

if  codel=23  then  vx_rel=decimal (valu 

if  codel=24  then  vy_rel=decimal(valu 

if  codel=25  then  vx3round=decimal (va 

if  codel=26  then  vy_round=decimal (va 

if  codel=27  then  vr=decimal (value ,4, 


,7); 
,7); 

); 

e,7); 


7); 


); 


e,7); 

value,?); 

lue,15); 

); 
,i); 

); 

e,4,l); 

e,4,l); 

alue,4,l); 

alue,4,l); 

e,4,l); 

e,4,l); 

lue,4,l); 

lue,4,l); 

i); 
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if 

code  1=28 

then 

if 

codel=29 

then 

if 

cod el =30 

then 

if 

codel=31 

then 

if 

codel=32 

then 

if 

codel=33 

then 

if 

codel=34 

then 

if 

codel=35 

then 

if 

codel=36 

then 

if 

codel=37 

then 

if 

codel=38 

then 

if 

codel=39 

then 

if 

codel=40 

then 

if 

codel=41 

then 

if 

codel=42 

then 

if 

codel=43 

then 

if 

codel=44 

then 

if 

codel=45 

then 

if 

codel=46 

then 

if 

code 1=47 

then 

if 

codel=48 

then 

if 

codel=49 

then 

if 

codel=50 

then 

if 

codel=51 

then 

if 

codel=52 

then 

if 

codel=53 

then 

if 

codel=54 

then 

if 

codel=55 

then 

if 

codel=56 

then 

if 

codel=57 

then 

if 

codel=58 

then 

if 

codel=59 

then 

if 

codel=60 

then 

if 

codel=61 

then 

if 

codel=62 

then 

if 

codel=63 

then 

if 

code 1=64 

then 

if 

codel=65 

then 

if 

codel=66 

then 

if 

codel=67 

then 

if 

codel=68 

then 

if 

codel=69 

then 

if 

codel=70 

then 

if 

codel=71 

then 

if 

codel=72 

then 

if 

codel=73 

then 

if 

codel=74 

then 

if 

codel=75 

then 

if 

codel=76 

then 

if 

codel=77 

then 

alpha=decimal(value,4,l ) ; 
ax=decimal( value ,7,2) 
Dx=decimal(value,7,2  ) 
cx=decimal( value  ,7,2) 
ay=decimal( value  ,7,2 ) 
by=decimal( value ,7,2) 
cy=decimal (value  ,7,2) 
ax_sum=decimal( value,7,2) 
hx3sum=declmal(value,7,2 ) 
cx_sum=decimal( value ,7,2) 
ay_sum=decimal(value,7,2) 
hy_sum=decimal (value ,7,2 ) 
cy_sum=decimal(value,7,2 ) 
x  at5=decimal (value, 7. 2) ; 
y„ at5=decimal (value ,7,2); 
r=decimal (value, 7, 2 ) ; 
dx_dt_at5=decimal (value ,7,2) ; 
dy~dt_at5=decimal(value,7,2) ; 
dr~dt3at5=decimal(value,7,2) ; 
key=aicii(value) ; 
threshold (0)=value» 
threshold  U)=valueJ 
threshold (2 ) =value  » 
c our se( 1 )=de c i ma 1( value, 4,1 ) ; 
speed(l)=decimal(value,3,l); 
azimuth (l)=decimal( value, 3,0  ) ; 
range ( 1) =decimal ( value, 5,0); 
x(l) -decimal (value, 6,1) J 
y(l)=decimal (value, 6,1) J 
x_aim( l)=decimal (value, 6,1 )» 
y_aim(l)=decimal (value, 6,1 ) ; 
count (1 )=hinary( value ,7); 
numher(l ) =hi nary (value, 7) ; 
ptr(l)=binary(value,7); 
link  ship(l)=hinary(value,7); 
c ourse(2 ; =deci ma 1( value ,4,1) ; 
speed(2)=decimal(value,3,l )» 
azimuth(2)=decimal (value, 3,0 ) ; 
range(2)=decimal(value,5,0) ; 
x(2)=decimal(value,6,l); 
y(2)=decimal ( value, 6,1 ) ; 
x_aim(2)=decimal (value,6,l); 
y2aim(2)=decimal(value,6,l ) ; 
count(2)=hinary(value,7) ; 
numher(2) =hi nary (value,?) ; 
p  t  r  (  2)  =b i na ry  ( va  lue  ,  7 ) ; 
link_ship(2)=binary(value,7) ; 
az=decimal(value,4,l ) ; 
alt=decimal (value, 4,1 )  ; 
x_ gun=de c i ma 1( value,  6,1 ); 
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if  codel=78  then  y  gun=decimal (value ,6,1 ) ; 
if  codel=79  then  x^vake(ptr(2 ) )=decimal (value, 6,1 ) ; 
if  codel=80  then  y.,vake(ptr(2)  )=decimal  ( value, 6, 1) ; 
if  codel=61  then  link  wake(ptr(2) )=Dinary(value,7) ; 
if  codel=82  then  dt=f loat (value ,7) ; 


nd  changeva; 
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G.  BREAKS0.AID 


/* 
Pr 
Da 
Wr 
Fo 
Ad 
Pu 
%i 
to 
Th 
pr 
st 
*/ 


Name 


te 

Itten 
r 

visor 
rpose 
nclude 
Insert 


BREAKS0.AID 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  %include  file  is  one  of  the  ten 
files  ,BREAKS0  through  BREAKS9,  that  are  used 
various  parts  of  the  programs  to  he  tested. 


ey  are  protected  during  the  normal  operation  of  the 
ogram  under  test  with  an  if  statement.  Within  the  if 
atement  thereis  a  call  to  BREAIPTS  . 


tEAKS(0)  : 

BREAKPT=0J 

IF  STOPS(BREAKPT)  THEN  DO  J 
CALL  BREAKPTSJ 
GOTO  EREAKS(BREAKPT); 

END  /*IF*/5 
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H.  BREAKPTS. PLI 


/* 

Prog  Name 

Date 

Written  by 

For 

Advisor 

Purpose 

breakpoint 


BREAKPTS. PLI 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  routine  prompts  the  user  that 
intended  to  stop  has  been  reached.  Then  it 


If  the  user  wants  to  transfer  the  control  over  the 
debuggig  environment.   If   the  answer  is  positive 
calls  REENTRY  where  the  control  stays  thereafter. 
*/ 


the 
asks 
dynamic 
then   it 


breakpts :proc  external; 
del 

stops(0:9)  bit(l)  external, 
breakpt  fixed  bin(15)  external, 
key  char(l)  external, 
erroron  bit(l)  external, 
reentry  entry; 

stops(breakpt)='0'b; 

put  skip  list ( '*****  breakpoint ', breakpt ,'  *****'); 

put  skip  list('The  execution  halted  and  clock  stopped.'); 

put  skip  list('Do  you  want  to  enter  the  interactive  debugging', 

'environment(Y/N)?'); 
get  list(key); 
if  (key='Y')  !  (key='y')  then 

call  reentry!  )J 
else 

erroron='0 'bj 
/*end  if*/ 
end  breakpts; 
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I.  TIMES  .AID 


/* 

Prog   Name  :  TIMES. AID 

Date  :  December  S3 

Written   by  :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  %include  file  is  inserted  to 

WAR.FLI  to  test  the  execution  times  of  the  individual 

system  routines . 

*/ 


put  s 

, 'time 
get  li 
do  whi 
put 

on  e 


end 
on  f 


end 
timesl 
put 
get 
reve 
reve 
put 


kip(2)   list  ('Do  you  want  to  measure  the  execution', 

s  of  the  modules  (T/N)?')J 

st  (key); 

le  C(key-'Y')  !  (key»'y'))J 

skip(2)  list('Enter  the  number  of  iterations  you  want 

'(max  32,767).'); 
rror  begin; 

put  list('***  bad  entry,  try  again.'); 

goto  timesl? 
/♦error*/; 
ixedoverflov  begin; 

put  list('***  too  large,  try  again.'); 

goto  timesl; 
/♦fixedoverflow*/; 


skip(2)  listO'); 

list(h); 

rt  error; 

rt  fixed 

skip(2) 


do  i=l 


overflow? 

list('Get  ready  for  time  check.  The  modules', 

will  execute  ',h,'  times.'); 


to  4J 

put  skip(2) 


list( 'Ready! !  Press  any 
, 'the   time  check  of 


key  to  start 
the  module' ) ; 

put  list  ('  IDLE.  '); 

then  put  listC  STATUS.  '); 

then  put  listC  TACTICAL.'); 


if  i=l  then 

else  if  i=2 

else  if  i=3 

else  put  listC  DISPLAY.'); 

get  list(key); 

do  j=l  to  h  while  (i  =  l) 

do  j=l  to  h  while  (i=2) 

do  j=l  to  h  while  (i=3) 

do  j=l  to  h  while  (i=4) 


call  idle;  end; 
call  status;  end; 
call  tactical;  end; 
call  display;  end; 
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tiines2 


put  skip(2)list( 'The  end  of  the  execution  .'); 
put  skip(2 )list( 'Enter  the  time  measured  in  ', 

'seconds 
on  error  begin? 

put  listC***  had  entry,  try  again'); 

go  to  times2J 
end  /*error*/; 
on  f ixedoverf low  "begin; 

put  list('***  had  entry,try  again.'); 

goto  times2J 
end  /*f ixedoverf low*/; 


'); 


put  skip(2)  listO'); 

get  list(j); 

revert  error; 

revert  f ixedoverf low; 

begin; 

del  duration  float; 

duration=float( J )/float(h); 

put  skin(2)  listCThe  execution  time  of  the  ', 
module  is' , duration , '  iterations/sec'); 
end; 

end  /*do*/J 

put  skip(2)  listCDo  you  want  another  run  (T/N)?'); 
get  list(key); 
end  /*do*/; 
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APPENDIX   G 
A  SAMPLE  SUEROUTINE  TESTING 


/* 

Prog   Name         :  P.PLI 

Date  :  December  83 

Written   by        :  M.  Kadri  Ozyurt 

For  :  Thesis 

Advisor  :  Professor  Kodres 

Purpose  :  This  program  is  written  to  test 

individual  procedures  in  an  interactive  manner.  At  each 

iteration  new  values  are  asked.   The  PL/I  ON   condition 

bodies  are  used   to   intercept   any   inadvertantly  wrong 

entries.  The  endless  loop  can  be  terminated  either  C  or 

~Z   from   the   terminal.   In  this   particular   example   the 

procedure  DRAW  inside  the  body  of  DISPLAY. PLI  is  tested  by 

making  it  external  for  the  test  purposes. 

*/ 


ptproc  options(main) ; 

del 

(u,v)(0:10)  fixed  Mn{15), 
(i,x,y)fixed  bln(15), 
rub  char(l )  external, 
d  fixed  bin(7), 

draw  entry  f(0:10)fixed  bin( 15)  ,  (0:10 )f ixed  bin(15) 

,fixed  bin(7))J 


on  error  begin; 

put  skip  list('***  bad  value,  try  again'); 

goto  reentry? 
end; 

on  f ixedoverf low  begin; 

put  skip  list('***  too  large,  try  again'); 

goto  reentry; 
end; 
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reentry: 
rub=ascii(127); 
do  while  (I'D; 

put  iist("7~_~x'); 

put  skip  list] 'enter  x  and  y')J 

put  skip  listO'); 

get  list(x.y); 

Fut  list('~Z'); 

call  gen(x,y,u,v); 

d«l? 

draw(u  ,v  ,d) ; 
delay; 


call 
call 
d=0J 
call 


end; 


draw(u,v,d) ; 


delay:proc; 

del  (i,j)  fixed  bin(15); 

do  i=l  to  30000; 

do  j=l  to  2J 

end; 

end; 
end; 

gen:proc(x,ytu,v); 


del 


(u,v)(0:10)  fixed  bin(15)  , 
(x,y)  fixed  bin(15); 


u(0)=x+8; 

v(0)=y; 

ud)=x; 

v(l)=y+8J 

u(2)=x-8; 

v(2)=yj 

u(3)=x; 

v(3)=y-8J 

u(4)=x+8J 

v(4)=yj 

u(5)=-i; 

v(5)=-i; 

end; 

end  pj 
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APPENDIX   H 
A  SAMPLE  PROGRAM  TESTING 


oy 


/* 

Prog  Name 

Date 

Written 

For 

Advisor 

Purpose 

procedure 

After  the 

the  final 

the  segment 

to  test  the 


Appendix  G 
*/ 


IDLE.PLI 
December  83 
M.  Kadri  Ozyurt 
Thesis 

Professor  Kodres 

This  is  the  testing  version  of  the 
IDLE.PLI  under  the  dynamic  debugging  module. 
correct  result  from  the  test  had  "been  taken, 
version  of  the  procedure  was  made  simply  removing 
of  code  in  "between  the  comment  lines.  In  order 
program,  an  interactive  main  procedure  as  in 
was  written. 


IDLEtPROCEDURE  EXTERNAL; 


/* 

] 

*/ 


DCL 


^INCLUDE  'CONST. INP'; 
%INCLUDE  'GLOBALS.INP'; 


/#*###*#  DEBUG  AID  ***#*#*/ 
%INCLUDE  'LOCALS. AID'? 
^INCLUDE  'ERRHAND.AID'J 
%INCLUDE  'BREAKS0.AID'; 

/#*#*##*#  gND  AID  ********/ 

DO  D=0  TO  5J 

CALL  ATOD  (D,ARG(D))J 

END  /*DO*/J 
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/♦at  this  point  the  A/D  output  values  are  fixed  Din(7) 
values.  The  following  sequence  converts  those  to  fixed 
decimal  values*/ 

/******  DEBUG  AID  ******/ 

^INCLUDE  'BREAKS l.AID'J 
/**##*#*  end  ^jq  ##******/ 

COURSE(OWN)=ARG(0) J 
SPEED(0WN)=ARG(4)J 
COURSE (KNOWN )=ARG (2); 

SPEED(KN0WN)=ARG(3); 

AZ=ARG(1); 

ALT=ARG(5); 

/*#***#  DEBUG  AID  ******/ 

^INCLUDE  'BREAKS2.AID'? 

/#**##**  END  £JJ)  ###*##*#/ 

/*the  following  sequence  converts  A/D  values  to  real   time 
values  "by  using  appropriate  proportionality  constants*/ 
COURSE(OWN)  =  COURSE(OWN)  *  Kj 
COURSE(KNOWN)  =  COURSE (KNOWN )  *  KJ 
AZ  =  AZ  *  KJ 
IE  COURSE(OWN)<0.0  THEN 

COURSE(OWN)  =  COURSE(OWN)  +  TWO  PI  J 
IE  COURSE(KNOWN)<0.0  THEN 

COURSE(KNOWN)  =  COURSE( KNOWN )  +  TWO  FI  J 
IE  AZ<0.0  THEN 

AZ  =  AZ  +  TWO_PIJ 
IE  ALT>90.0  THEN 
ALT  =  90.0J 

/**###*  debug  AID  *#****/ 

^INCLUDE  'BREAKS3.AID'; 

/*###*##  2ND  AID  ##**#***/ 

SPEED(OWN)  =  SPEED(OWN)/LJ 
SPEED (KNOWN)  =  SPEED (KNOWN)  /  LJ 

/*ownship  speed  computations*/ 

VX  OWN  =  SPEED(OWN)  *  SIND(COURSE (OWN ) ) ; 
VT^OWN  =  SPEED(OWN)  *  COSD( COURSE (OWN )) J 

/*****#  debug  AID  ******/ 

%INCLUDE  'BPEAKS4.AID'; 
/#*#*#*#  end  AID  *#*#**#*/ 
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/*when  not  have  fired,  the  following  makes  the  tallistic 
computations*/ 

if  "  fired  then 
begin; 
t_of  =  2.0  *  vm  *  sind(alt)  /  gj 

/****#*  DEBUG  AID  ******/ 

%INCLUDE  'BREAKS5.AID'; 
/#**#*##  end  aid  *##*##*#/ 

VR  =  VM  *  COSD(ALT); 

R  =  VR  *  t.of; 

/****#*  DEBUG  AID  *#***#*/ 

%INCLUDE  'BREAKS6.AID'; 
/*#**###  END  AjD  ##**#*##/ 

X_AIM(OWN)  =  R  *  SIND(AZ); 
YlAIM(OWN)  =  R  *  COSD(AZ); 
X_GUN  =  0.0J 
Y_GUN  =0.0; 

/******  DEBUG  AID  ******/ 

^INCLUDE  'BREAKS?. AID'? 

/#******  2ND  AID  #*****#*/ 

VX  ROUND  =  VR  *  SIND(AZ); 
VY~ROUND  =  VR  *  COSD(AZ); 

/******  DEBUG  AID  ******/ 

%INCLUDE  'BREAKS8.AID'; 
/***#*#*  2ND  AID  *******#/ 

T  =  t_of; 

END  /*IF*/J 

/******  DEBUG  AID  ******/ 

%INCLUDE  'BREAKS9.AID'; 
/**###**  gND  AID  **#*#*#*/ 

END  idle; 
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